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1.0 GENERAL IMFORMATIOM 

1.1 PROGRAM ABSTRACT 
1«1.1 STRUCTURE OF PROGRAM 

THIS DIAGNOSTIC OCCUPIES 14,5K I^ORDS OF MEMORY AND IS COMPATIBLE isITH 
BOTH XXDP AND ACT, IT CAH BE RUN STANDALONE UNDER XXDP^ AND CAN BE 
CHAINED UNDER XXDP^ ACT AND APT IN ACT MODE (SEE "CREATE CORE IMAGE" 
COMMAND BELOW FOR DETAILS OF CHAINING PROCEDURE), IT IS A SINGLE 
PROGRAM FROM THE STANDPOINT OF THE DIAGNOSTIC USER* BUT WE HAVE 
INCORPORATED INTO IT A CONTROL MODULE WHICH WILL LATER BE RELEASED 
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES FIRST TO 
THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN "HARD CORE" QUESTIONS 
ABOUT THE ENVIRONMENT, THEN IT WILL ENTER COMMAND MODE, INDICATED BY 
A PROMPT CHARACTER (DS B>), AT COMMAND MODE THE OPERATOR MAY ENTER 
ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW, 

THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING^ 
BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL 
DISTRIBUTION, A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE 
OF THE SUPERVISOR ASSEMBLY LISTING, AND IT MAY BE CONSULTED IN EVENT 
OF A SOFTWARE PROBLEM, 

1,1,2 DIAGNOSTIC INFORMATION 

THE RLOl DRIVE COMP AT AB ILITY TEST IS A PDP-11 (LSI-ll) BASED PROGRAM 
THAT WILL TEST INTERCHANGABILITY OF CARTRIDGES BETWEEN DRIVES, THE 
TEST PERFORMS WRITES, READS, OVERWRITES, ADJACENT CYLINDER WRITES TO 
PROVE COMPATABILITY, 

1.2 SYSTEM REQUIREMENTS 
1,2,1 HARDWARE REQUIREMENTS 



PDP-ll/LSI-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA30,LA3 6,VT50,ETC, ) 
RLll/RLVll CONTROLLFR(S) 
1 - B RLOl DRIVES 

1-8 RLOIK CARTRIDGES WITH BAD SECTOR FILE 
KWllP, KWllL (OPTIONAL) 
LINEPR INTER (OPTIONAL) 

1,2-2 SOFTWARE REQUIREMENTS 

CZRLFBO RLOl DRIVE COMPATABILITY 
(FORMERLY MD- 1 1-DZRLF- A ) 
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SEQ 0004 



1»3 



RELATED DOCUMENTS AND STANDARDS 



RLOl USERS MANUAL ( EK-RLOl-UG-PRE ) 
XXDP USERS MANUAL 

1,4 DIAGNOSTIC HTERARCV PREREQUISITES 

SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE 



THE RLOl 

PROGRAMS S 



FOLLOWING 



1«5 



CZRLABO 
C2RLBB0 
CVRLAAO 
CZRLCBO 
CZRLDBO 
CZRLEBO 

ASSUMPTIONS 



RLll/RLVll RLOl CONTROLLER TEST (PART 1] 

RLll/RLVll RLOl CONTROLLER TEST (PART 2) 

RLVll RLOl DISKLESS TEST (RLVll ONLY) 

RLOl DRIVE TEST (PART 1) 

RLOl DRIVE TEST (PART 2) 

RLll/RLVll RLOl PERFORMANCE EXERCISER 



THE HARDWARE OTHER THAN THE RLOl SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC«, DO NOT 
FUNCTION PROPERLY. 

2.0 OPERATING INSTRUCTIONS 

2.1 HOW TO RUN THIS DIAGNOSTIC 
2«1«1 THE SIX STEPS OF EXECUTION 

THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL XXDP 
PROCEDURES, THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE 
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT, 

WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCURS 



********** 

* sxEP 1 * 
********** 

A SHORT SERIES OF "HARDCORE QUESTIONS" WILL BE ASKED: 
QUESTION MEANING 



L-CLK (L) N ? 
P-CLK (L) N ? 
50HZ (L) N ? 
LSI (L) N ? 
LPT (L) M ? 
MEM (K) (D) 16 



IS THERE AN L-CLOCK? 
" " " P-CLOCK? 

IS THE POWER 50 CYCLES (AS IN EUROPE)? 

IS MACHINE AN LSI? 

IS THERE A LINE PRINTER? 

HOW MANY K OF MEMORY ARE THERE? 



THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY HITTING 
CARRIAGE RETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL 3E 
ASKEDS FOR EXAMPLE, IF YOU SAY "YES" TO THE L-CLOCK QUESTION, THE 
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P-CLOCK QUESTION WILL NOT BE ASKED« 

IF NEITHER P OR L CLOCK ARE ANSWERED YES THE OPERATOR ^ILL BE ASKED TO 
TYPE TWO CHARACTERS 4 SECONDS APART« 

********** 

* STEP 2 * 
********** 

mEH YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS^ THE DIAGNOSTIC WILL 
ISSUE THE PROMPT "DS-B>". FROM THIS POINT UNTIL THE TIME WHEN YOU 
RESTART XXDP, YOU WILL BE TALKING TO THE DIAGNOSTIC, NOT XXDP. WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC 
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE. 

AT THIS POINT YOU WILL ENTER A "START" COMMAND. THIS IS NOT THE SAME 
AS THE XXDP "START" COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO 
THE XXDP DOT PROMPT. THIS "START" COMMAND CAN TAKE A NUMBER OF 
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET 
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX". HOWEVER, IN ORDER TO 
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS2 

STA/PASS: 1/FLAGS:H0E 

THINGS TO NOTE HERE: 

1. ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND AT THE 
"DS-B>" LEVEL NEED TO BE TYPED. 

2. THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE. A 
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS BEING TESTED (THIS WILL BE EXPLAINED SHORTLY). ONE 
PASS IS SPECIFIED IN THE ABOVE EXAMPLE. 

3. THE "FLAGS" SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS, BUT 
THE MAIN USEFUL ONES ARE: 

LOE LOOP ONE ERROR 

HOE HALT ON ERROR 

lER INHIBIT ERROR PRINTOUT 

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY 
SHORTLY)- 



********** 

* STEP 3 * 
********** 

WHEN YOU HAVE TYPED IN A "START" COMMAND, THE DIAGNOSTIC WILL COME 
BACK WITH THE QUESTION "# UNITS?" TO WHICH YOU SHOULD RESPOND BY 
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST. 
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A WORD OF WARNING HERES THE I^UMBER OF Uf^ITS DEPENDS ON THE TARGET 
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE^ IF THE DIAGNOSTIC IS DIRECTED 
AT A DISK DRIVE, THEN THE NUMBER OF UNITS MOULD BE THE MUMBER OF 
DRIVES TO BE TESTED- WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE 
DISK CONTROLLER^ THEN THE NUMBER OF UNITS WOULD BE THE NU^^BER OF 
CONTROLLERS. THE TARGET DEVICE OF A DIAGNOSTIC CAN ALWAYS BE 
DETERMINED BY INSPECTING THE "HEADER" STATEMENT NEAR THE BEGINNING OF 
THE SOURCE CODE« ONE OF THE OPERANDS OF THIS "HEADER" STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC* 
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********** 

* STEP 4 * 
********** 

WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE TESTED, THE 
DIAGNOSTIC WILL ASK YOU THE "HARDWARE QUESTIONS", THE ANSWERS TO 

THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED "HARDWARE 
P-TABLES". ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE 
TESTED. 

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL BE 
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS. 

THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING. 
DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME 
STANDARD ADDRESSES? INSTEAD, THEY WILL ASK THE OPERATOR FOP ALL THE 
INFORMATION THEY NEED TO TEST THE DEVICE. 

********** 

* STEP 5 * 
****** **** 

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5) FOR ALL 
THE UNITS, YOU WILL BE ASKED "CHANGE SW?" IF YOU WANT TO 3E ASKED THE 
SOFTWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM, TYPE 
"Y". IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE 
"N". IF YOU TYPE "Y" YOU WILL BE ASKED THE SOFTWARE QUESTIONS (SEC 
2.6), AND THE ANSWERS WILL BE PUT INTO THE SOFTWARE P-TABLE IN THE 
PROGRAM. THE SERIES OF QUESTIONS WILL BE ASKED JUST ONCE, REGARDLESS 
OF THE NUMBER OF UNITS TO 3E TESTED. 

********** 

* STEP 6 * 
********** 

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS, THE DIAGNOSTIC WILL 
BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE ARE SEVERJiL THINGS 
THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS 
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START 
COMMAND. CONSIDER THE POSSIBILITIES; 

1. IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY 
EXECUTE THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND 
MODE (PROMPT DS-B>). 
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2« IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS HAPPENS, 
DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS. 

HOE SETt THE ERROR WILL BE REPORTED ON THE CONSOLE AND 

THE DIAGNOSTIC WILL RETURN TO COMMAND MODE, 
LOE SET: THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK 

OF CODE THAT DETECTED THE ERROR. 
NEITHER HOE NOR LOE SETS THE ERROR WILL BE REPORTED ON 

THE CONSOLE AND NORMAL EXECUTION WILL RESUME 

AS IF NO ERROR HAD OCCURED, 



2«1«2 sample run-through 

let's see how all this works in a real situation, recall that we 
entered the command "sta/pass 2 1/flags 2 hoe"* this would be a very 
typical way to run the diagnostic. if no errors are encountered, the 
single requested pass will be executed and the prompt will re 
reissued. 

if a error is encountered, the error will be reported and the prompt 
will be reissued (because the hoe flag is set). at this point there 
are four different ways you can get the program going agains: 

1 . issue another "start" command (thus going thru all of steps 
2, 3, 4, 5, and 6 again) 

2. issue a "restart" command (same as start command except that 
the hardware questions are not asked) 

3. issue a "continue" command (execution will resume at the 
beginning of the particular hardware test (most diagnostics 
consist of a number of these) that it was in when the error 
halt occured. no questions asked. 

4. issue a "proceed" command: execution will resume at the 
instruction following the error report (this is a special 
command and can be issued only at a halt on error). 

the most typical thing tc do here is to issue the proceed, but with 
different flag settings. probably you would want to say 

pro/flags2Ier;loe:hoe=o 
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THIS WILL DO THE FOLLOWINGS 

1» TURN ON THE lER (INHIBIT ERROR PRINTOUT) FLAG 

2. TURN ON THE LOE FLAG 

3. TURN OFF THE HOE FLAG 

4. RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT 

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND 
REPORTED THE ERROR^ BUT NO ERROR PRINTOUT WILL OCCUR. THUS YOU CAN 
STUDY THE ERROR OR SCOPE IT OR WHATEVER. 

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C. THIS WILL TAKE YOU 
OUT OF THE LOOP AND PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE 
THREE CHOICES: 

1. START 

2. RESTART 

3. CONTINUE 

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH 
RUNNING THE DIAGNOSTIC. YOU WOULD TYPE 

con/flags:hoe: ier=o:loe=o 

THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME 
EXECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN. IF THE 
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO THE 
NEXT ERROR OR TO END OF PASS. 

IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN, YOU HAVE TWO 
CHOICES: 

1. START 

2. RESTART 

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE 
HARDWARE QUESTIONS AGAIN. 



SEQ 0009 
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THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE MIGHT LOOK LIKE THISS 

BY 

WHOM 
ENTERED: 

«R DZRKXX 
DZRKXX D 
L-CLK (L) N ? Y D,0 
50HZ (L) N ? D 
LSI (L) N ? D 
LPT (L) N ? D 

in b - - 



MEM (Kj (D) 16 ? D 

DS-B>STA/PASS;l/FLAGS2H0E D,0 

# UNITS (D) ? 2 D,0 

UNIT 1 D 

CSR (0) ? D,0 

VECTOR (0) ? D,0 

BR LEVEL (0) ? D^O 

DRIVE (0) ? 0,0 

UNIT 2 D 

CSR (0) ? 0,0 

VECTOR (0) ? 0,0 

BR LEVEL (0) ? 0,0 

DRIVE (0) ? 1 0,0 

CHANGE SW (L) ? N 0,0 
DZRKXX HARD ERR 00004 TST 003 SUB 002 PC2004130 

ERR HLT D 

DS-B>PRO/FLAGS:IER:LOESHOE=0 0,0 

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE 

ERROR WITHOUT PRINTING ANYTHING. YOU CAN SCOPE 
THE ERROR UNTIL YOU HAVE LOCATED IT, THEN OUT 

«r******lir ************* 

-^c 

DS-B>CON/FLAGS;HOE2IER:LOE=0 0,0 

CHANGE SW (L) ? N D,C 

DZRKXX EOP 1 

DS-B>RESTART/PASS: 1 0,0 

CHANGE SW (L) ? N 0,0 
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2«2 HOW TO CREATE A CHAINABLE FILE 

THE DIAGNOSTIC AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE RUN IN 
CHAIN MODE. THA IS WHY IT BEARS THE EXTENSION "BIN" INSTEAD OF "BIC"* 
THERE IS A WAY, HOWEVER, TO CREATE A CHAINABLE PROGRAM FROM WHAT 
YOU'VE GOT« 

IT CONSISTS OF RUNNING THE PROGRAM WITH THE SPECIAL COMMAND "CCI" 
ISSUED WHERE YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT 
DS-B>. THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL THE 
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE IT WOULD ORDINARILY 
BEGIN EXECUTION OF THE HARDWARE TEST CODE, AT THIS POINT YOU CAN DUMP 
THE PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIUM, WITH THE NEW 
EXTENSION "BIC". 

HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THISs 
.R UPD2 

RESTART: XXXXXX 
*CLR 

♦LOAD DIAG.BIN 
XFER:200 CORE:0, 60602 
♦START 200 
L-CLK (L) n ? 



DS-B>CCI 

# UNITS (D) ? 4 



CHANGE SW (L) ? N 
PTAB end: 60632 

************************************* 

*AT THIS POINT THE MACHINE HALTS AND* 

*Y0U MUST RESTART AT ADDRESS XXXXXX* 
************************************* 

*HICORE 60632 
CORE: 0,60632 
♦DUMP DKO: DIAG.PIC 

THE RESULT OF DOING THIS IS THAT YOU CAN NOW BUILD AN XXDP CHAIN FILE 
CONTAINING THE XXDP COMMAND 

•R DIAG.BIC 

AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION, USING THE 
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND. 
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2.3 DETAILS OF COMMANDS AND SYNTAX 
2.3.1 TABLE OF COMMAND VALIDITY 

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE, AND DIFFERENT 
^ .....^ ^j^g ^vA£L^3LE i^'iYH EACH: 
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SUBSETS OF THE DIAG COMMAND SET 

HOW ENTERED 
1. OPERATOR ENTERED 'RUN DIAG* 



2. DIAGNOSTIC HAS FINISHED ALL 

ITS REQUESTED PASSED 



OPERATOR INTERRUPTED THE 
DIAGNOSTIC WITH CTRL/C 



4. AN ERROR WAS ENCOUNTERED 
WITH THE HOE FLAG SET SET 



LEGAL COMMANDS 

START 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTINUE 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTINUE 

PROCEED 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 



2.3.2 COMMAND SYNTAX 

**************************************** 

STACRT ) /TESTS: TEST-LI ST/PASS :PASS-CNT/FLAGS 5 FLAG-LIST /E0P:E0P- IN CP 
************************************************************* ***** 

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES 
SPECIFIED. THE MESSAGE "# UNITS?" IS PRINTED. THE START COMMAND MAY 
BE ISSUED WHEN DIAGNOSTIC COMMAND MODS HAS BEEN ENTERED VIA ONE OF THE 
FOLLOWING: A) OPERATOR TYPED "RUN DIAGNOSTIC" B) DIAGNOSTIC FINISHED 
EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET D) OPERATOR 
ENTERED CONTROL/C. 
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AFTER THE OPERATOR RESPONDS TO *«# UHITS?»V *^HE HARDWARE DIALOGUE IS 
INITIATED. WHEN IT IS COMPLETED/ THE QUESTIONS "CHANGE SW?" IS 
ISSUED, AND THE ANSWERS, IF GIVEN, BECOME THE NEW DEFAULTS. THEREFORE 
IT IS NECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD 
DEFAULTS* 

THE SWITCH ARGUMENTS ARE AS FOLLOWS: 

"TEST-LIST" IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES OF 
DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED^ 
THE NUMBERS ARE SEPARATED BY COLONS. THE NUMBERS RANGE FROM 1 TO THE 
LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED IN ANY 
ORDER. TESTS WILL BE EXECUTED IN NUMBERICAL ORDER REGARDLESS OF THE 
ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS« 

"PASS-CNT" IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF 
PASSES. A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC 
(ALL SELECTED TESTS) AGAINST ALL UNITS SUMBITTED. THE DEFAULT IS 
NON-ENDING EXECUTION. .8 "FLAG-LIST" IS A SEQUENCE OF ELEMENTS OF THE 
FORM <FLAG>, <FLAG=1>£ OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> 
HAS ONE OF THE FOLLOWING VALUES: 

HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED WHEN AN 

ERROR IS ENCOUNTERED 
LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 

WITHIN THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, 

SUBTEST, OR TEST) CONTAINING THE ERROR 
lER INHIBIT ERROR REPORTING 

IBE INHIBIT BASIC ERROR REPORTS 

IXE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 

PNT PRINT NUMBER OF TES BEING EXECUTED 

BOE BELL ON ERROR 

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS 

ISR INHIBIT STATISTICAL REPORTS 

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 
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THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO ARE 
CLEARED, A FLAG NOT SPECIFIED IS CLEARED, IF THE FLAGS SWITCH IS HOT 
GIVEN ALL FLAGS ARE CLEARED, 

"EOP-INCR" IS A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF 
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED, THE 
DEFAULT IS AT THE END OF EVERY PASS. 

***************************************************** ******** ******** ******* ******* 

RES^TART) /test: TEST-LIST^ 

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES 
SPECIFIED, HOWEVER, NEW P-TABLES ARE NOT BUILT, INSTEAD, THE ONES IN 
CORE ARE USED. 

THE QUESTION "CHANGE SW?" IS ASKED, AND THE ANSERS IF GIVEN BECOME THE 
NEW DEFAULTS* THE COMMAND MAY BE ISSUED WHEN COHAND MODE HAS BEEN 
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C, 

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT: 

1, "UNIT-LIST" IS A SEQUENCE OF LOGICAL UNIT NUMBERS RANGING 
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING 
WHICH UNITS ARE TO BE TESTED, THE LOGICAL UNIT NUMBER 
DESIGNATES THE POSITION OF THE P-TABLE IN CORE, ACCORDING TO 
THE ORDER IN WHICH THEY WERE BUILT, THE UNITS SPECIFIED MUST 
NOT HAVE BEEN DROPPED BY THE OPERATOR DROP COMMAND, THE 
UNIT-LIST DEFAULTS TO "ALL THAT HAVE NOT BEEN DROPPED BY 
OPERATOR COMMAND", THE EFFECT OF THE UNIT-LIST LASTS UNTIL 
THE NEXT START (WHERE IT IS AUTOMATICALLY RESET TO "ALL") OR 
THE NEXT RESTART, 

2, ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED. 




COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT ON ERROR OR A 
CONTROL/C. THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF THE 
TEST THAT WAS BEING EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE, 
SOFTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS 
MAY NOT BE CHANGED. 

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT: 

1, DEFALT FOR PASS-CNT IS THE UNSATISFIED PASS-CNT FROM THE 
PREVIOUS START OR RESTART 

2, UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 



Page 15 



SEQ 0015 



*************************** 

PRO(CEFD) /FLAGS :<FLAG-LIST> 

*************************** 

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT 
OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 
ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 

THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT: 

1. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 

************************************************************* 

cci/test:test-ltst/pass:pass-cnt/flags:flag-list/eop:eop-incr 

************************************************************* 

the diagnostic executes thru all operator dialogue and halts at THE 
HARDWARE TEST CODE. NOW THE OPERATOR CAN DUMP THE CORE IMAGE TO THE 
MEDIUM WITH A BIC EXTENSION. 

THE BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS 
RUN MANUALLY OR IN CHAIN MODE. IF RUN MANUALLY IT CAN BE INVOKED 
EITHER WITH A "START" (IN WHICH CASE IT WILL BEHAVE LIKE THE BIN FILE: 
THE PRE-GENERATED ANSWERS TO OPERATOR QUESTIONS WILL BE IGNORED) OR 
WITH A "RESTART" (IN WHICH CASE THE PRE-GENERATED OPERATOR ANSWERS 
WILL BE USED). 

IF RUN IN CHAIN MODE^ AUTOMATIC EXECUTION WILL COMMENCE IMMEDIATELY 
FROM THE XXDP COMMAND ".R DIAG". THE COMMAND PROMPT "DS-B>" WILL NOT 

BE ISSUED. 

ANY SWITCHES SPECIFIED ON THE CCI COMMAND WILL CARRY OVER WHEN THE BIC 
FILE IS RUN IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT 
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY. 

TO DO A CCI ON A FULL SIZED DIAGNOSTIC (14. 5K WORDS)^ A MACHINE SIZE 
LARGER THAN 16K IS REQUIRED. THE EXACT SIZE NEEDED DEPENDS ON WHICH 
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME. 

********************** 

DRO( P) /UNITS: UNIT-LIST 
********************** 

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BACK 
OR UNTIL A START COMMAND IS GIVEN. A DROP CANNOT BE FOLLOWED BY A 
PROCEED. 

THERE IS ALSO A "DROP" MACRO INTERNAL TO THE DIAGNOSTIC, WHICH GIVES 
THE FACILITY OF AUTO-DROPPING. THE DURATION OF A PROGRAM DROP, 
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART. 
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SEQ 0016 

******************* 

AOD/UNTTS:UNIT-LIST 

******************* 

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN PREVIOUSLY 
DROPPED BY THE DROP COMMAND) TO THE TEST SEQUENCE, AN ADD CANNOT BE 
FOLLOWED BY A PROCEED. 



PRI(NT) 
******* 

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE PRINTED. THE 
ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED. 

*************************** 

DIS(PLAY)/UNITS:<UNIT-LIST> 

*************************** 

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE 
OPERATOR "DROP" COMMAND ARE SO DESIGNATED, 

******* 

FLA(GS) 
******* 

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 

******** 

ZFL(AGS) 
******** 

ALL FLAGS ARE CLEARED. 



2,4 EXTENDED P-TARLE DIALOGUE 

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE 
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY. 

AS SOON AS THE QUESTION "# UNITS?" IS ANSWERED (WITH THE NUMBER N, 
SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT^ AND THERE IS A ONE-TO-ONE CORRESPONDENCE 
BETWEEN THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE 
FORMAT. 
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ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IH ALL OF THE 
P-TABLES ARE FILLED* IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT 
VALUES IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES ARE PLACED 
IN THE P-TABLES (ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE 
BEGINNING WITH THE FIRST P-TABLE) UNTIL THE STRING OF VALUES IS 
EXHAUSTED* THE LAST VALUE THAT SLOT IN THE REMAINING P-TABLES« 

ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS CARRIED 
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT 
VALUE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE 
PLAYED IN THE FIRST TRIP* 

THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS 
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR. 

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE 
USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE, 

A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE), IF THE 
VALUES REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANLATES TO 
THE STRING 6,7,8,9,10 (AN INCREMENT OF 1), IF THE VALUES ARE 
ADDRESSES, THE SAMPLE RANGE TRANSLATES TO THE STRING 6,8,10 (AN 
INCREMENT OF 2)* 

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A SET 
OF P-TABLES. ASSUME THAT WE HAVE 64 UNITS, AND THAT THERE ARE THREE 
HARDWARE PARAMETERS FOR EACH (THREE SLOTS IN THE P-TA3LE, THREE 
HARDWARE QUESTION'S IN THE DIALOGUE), LET THE DESIRED VALUE FOR THE 
FIRST PARAMETER BE THE NUMBER 75 FOR ALL 64 TABLES, LET THE DESIRED 
VALUE FOR THE SECOND PARAMETER BE EQUAL TO THE UNIT NUMBER 
(1,2, 3, .••,64) EXCEPT FOR UNIT 50, WHICH SOULD RECEIVE THE VALUE 49, 
LET THE DESIRED VALUE FOR THE THIRD PARAMETER BE THE NUMBER 76 FOR THE 
FIRST 20 UNITS AND THE NUMBER 77 FOR THE LAST 44 UNITS. 

THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL: 

# UNITS (D) ? 64 

UNIT 1 

<QUESTION 1> ? 75 
<QUESTION 2> ? 1-20 
<QUESTION 3> ? 76 

UNIT 21 

<QUESTION 1> ? 

<QUESTION 2> ? 21-49,, 51-64 

<QUESTION 3> ? 77 



SEQ 0017 
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THK FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES k 75 IN ALL 64 
TABLES. SLOT TWO RECEIVES THE VALUES 1,2,3, ...,20 IN TABLES 1 THRU 20 
AND A CONSTANT 20 IN TABLES 21 THRU 64. SLOT THREE RECEIVES A 
CONSTANT 76 IN ALL 64 TABLES. 

THE SECOND TIME THRU THE SERIES, TABLES 21 THRU THE END ARE GOING TO 
BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS PRINTED OUT FOR 
THE OPERATOR IN THE FORM "UNIT XX»' AT THE BEGINNING OF EACH SERIES). 
QUESTION 1 IS RESPONDED TO BY A <CR>, SO SLOT ONE STAYS A CONSTANT 75 
IN TABLES 21 THRU 64, SINCE NO NEW EXLICIT VALUES ARE TYPED IN. SLOT 
TWO GETS THE VALUES 21, 22, 23, . . . , 49 IN TABLES 21 THRU 49, AND GETS A 
49 IN SLOT 50, AND GETS THE VALUES 51,52,53, ... ,64 IN TABLES 51 THRU 
64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 

THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ON QUESTION (NAMELY 
QUESTION 2). 



2.5 HARDWARE PARAMETERS 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE VALUE 
LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT 
WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 

RLll (L) Y? 

ANSWER YES(Y) IF YOU HAVE AN RLll CONTROLLER, NO(N) IF YOU HAVE AN 
RLVll CONTROLLER. 

BUS ADDRESS (0) 174400? 

ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER. 
VECTOR (0) 330? 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. 
BR LEVEL (0) 5? 

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER. 
DRIVE (0) 0? 

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 



2.6 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, OR 
CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. THE 
SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY IT PUNS. 
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART, OR CONTINUE BY 
ANSWERING (Y)ES TO THE FOLLOWING QUESTION: 



SEQ 0018 
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SEQ 0019 



CHANGE S«W, ? 

A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTIONS, WITH 
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION MARK, 
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A <CR>, 
CONTROL Z C^Z) WILL DEFAULT ALL REMAINING QUESTIONS AND START THE 
TEST. 

THERE ARE NO SOFTWARE PARAMETERS. 

3.0 ERROR INFORMATION 

ERROR INFORMATION IS COMPLETE IN GIVING ALL INFORMATION NECESSARY. 
ALL REGISTERS ARE GIVEN AS WELL AT TRACK, SECTOR AND DRIVES INVOLVED 
IN ERROR. 

3.1 ERROR REPORTING 

ALL ERROR INFORMATION IS PRINTED ON THE CONSOLE DEVICE. ERROR REPORTS 
ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL FORMAT IS: 

DZRL? XXX ERR YYYYY TST ZZZ SUB PPP PC: RRRRRR 

where: 

? IS PROGRAM LETTER 

XXX IS SET - SOFT ERROR 

HRD - HARD ERROR 
DV FAT - DEVICE FATAL ERROR 
SYS FAT - SYSTEM FATAL ERROR 
YYYYY IS THE ERROR NUMBER 
ZZZ IS THE TEST NUMBER 

PPP IS THE SUBTEST NUMBER 

RRRRRR IS THE PROGRAM LISTING LOCATION 

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR ALONG 
WITH A ONE LINE DESCRIPTION AND RELEVENT DATA. 

EXAMPLE: 

ONE LINE DESCRIPTION 
(OPTIONAL SECOND LINE) 
(OPTIONAL THIRD LINE) 

BEFORE CS2XXXXXX BA:XXXXXX DA2XXXXXX MP:XXXXXX 

AFTER cs:xxxxxx RA:xxxxxx da:xxxxxx mpixxxxxx 

OTHER PERTINENT INFORMATION IS GIVEN AT THIS TIME. 
REGISTER DESCRIPTIONS CAN BE FOUND IN SECTION 5.0. ERROR DESCRIPTIONS 
ERROR READING SECTOR 

ERROR WAS ENCOUNTERED WHILE TRYING TO READ VERIFY THE SECTOR AFTER IT 
WAS WRITTEN BY THE SAME DRIVE. 
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N!INIMUM OF TWO DRIVES REQUIRED 

THE PROGRAM REQUIRES AT LEAST TWO DRIVES TO PROVE COMPAT ABILITY* 
MAXIMUM OF FOUR DRIVES ALLOWED 

THE PROGRAM ONLY ALLOWS A MAXIMUM OF FOUR DRIVES, 
CAN'T FIND FIVE ADJACENT TRACKS 

THE PROGRAM REQUIRES TEN SETS OF FIVE ADJACENT TRACKS AT PREDETERMINED 
SPOTS ACROSS THE PACK, IT WAS UNABLE TO FIND FIVE COMPLETELY GOOD 
ADJACENT TRACKS IN THE LIMITS GIVEN, 

ERROR WRITING SECTOR 

AN ERROR WAS ENCOUNTERED WHILE TRYING TO WRITE THE GIVEN SECTOR. 
OVERWRITE ERROR 

AN ERROR WAS ENCOUNTERED WHILE TRYING TO READ DATA AFTER AN OVERWRITE 
BY ONE DRIVE. BOTH DRIVES INVOLVED ARE GIVEN. 

READ RECOVERY ERROR 

AN ERROR WAS ENCOUNTERED WHILE TRYING TO RECOVER ANOTHER DRIVES DATA. 
ADJACENT TRACK TEST 

AN ERROR WAS ENCOUNTERED WHILE IN THE ADJACENT TEST PART, A FURTHER 
DESCRIPTION IS GIVEN. 

3.2 ERROR HALTS 

ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION WITH 
/FLAG:HOE. THERE ARE NO OTHER HALTS, 

4.0 PERFORMANCE AND PROGRESS REPORTS 

4.1 PERFORMANCE REPORTS 

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS. 

4.2 PROGRESS REPORTS 

THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS. 



SEQ 0020 
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SEQ 0021 



5«0 DEVICE INFORHATION TABLES 



BIT 


15 - 1 


BIT 


14 - 1 


BIT 


13 - 


BIT 


12 - 1 


BIT 


11 - 


BIT 


10 - I 


BIT 


9/8 ■ 


BIT 


7 - ! 


BIT 


6 - 


BIT 


5 - ' 


BIT 


4 - 


BIT 


3-1 - 



THE RLll/RLVll CONTROLLER HAS THE FOLLOWING F0UR(4) REGISTERS FOR 
CONTROL OF THE SUBSYSTEM, 

RLCS - CONTROL AND STATUS REGISTER (XXXXXO) 

COMPOSITE ERROR 
DRIVE ERROR 

NQN EXISTANT MEMORY ERROR 
HEADER NOT FOUND (WITH BIT 10 SET) 
DATA LATE (WITH BIT 10 CLEAR) 
HEADER CRC (WITH BIT 10 SET) 
DATA CRC (WITH BIT 10 CLEAR) 
OPERATION INCOMPLETE 
- DRIVE SELECT (0-3) 
CONTROLLER READY 
INTERRUPT ENABLE 
EXTENDED BUS ADDRESS (BIT 17) 
EXTENDED BUS ADDRESS (BIT 16) 
FUNCTION CODE 

- NOP (PDP-11) MAINT (LSI-11) 

1 - WRITE CHECK 

2 - GET DRIVE STATUS 

3 - SEEK 

4 - READ HEADER 

5 - WRITE DATA 

6 - READ DATA 

7 - READ WITHOUT HEADER COMPARE 
BIT - DRIVE READY 

RLBA - BUS ADDRESS REGISTER (XXXXX2) 

BITS 15-1 BUS ADDRESS OF DATA TRANSFER 
BIT SHOULD BE 

RLDA - DISK ADDRESS REGISTER (XXXXX4) 
FOR READ/WRITE FUNCTIONS 
BIT 15 - MUST BE ZERO(O) 

BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER 
BIT 6 - SURFACE FOR TRANSFER 
BIT 5-0 - SECTOR FOR TRANSFER (0-47) 

FOP SEEK FUNCTION 
BIT 15 - MUST EE ZERO(O) 



BIT 14-7 - DIFFERENCE TO NEW CYLINDER 

BIT 6-5 - MUST BE ZERO(O) 

BIT 4 - SURFACE 

BIT 3 - MUST BE ZERO 

BIT 2 - SEEK DTRECTIONC 1 - IN / - OUT ) 
BIT 1 - MUST BE ZERO 
BIT - MUST BE ONE(i) 

FOR GET STATUS FUNCTION 



BIT 15-4 - IGNORED SHOULD BE ZERO 
BIT 3 - DRIVE RESET 
BIT 2 - MUST BE ZERO 
BIT 1 - MUST BE ONE 
BIT - MUST BE ONE 

RLMP - MULTIPURPOSE REGISTER 



FOR READ/WRITE FUNCTION 



BIT 15 - - WORD COUNTCTWO'S COMPLIMENT) 

FOR READ HEADER FUNCTION 



BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 

- ZERO WORD (SECOND READ) 

- HEADER CRC (THIRD READ) 

FOR GET STATUS FUNCTION 



HAS DRIVE STATUS 

BIT 15 - WRITE DATA ERROR 

BIT 14 - CURRENT HEAD ERRORCCHE) 

BIT 13 - WRITE LOCK STATUS(WL) 

BIT 12 - SEEK TIME OUT(SKTO) 

BIT 11 - SPIN ERROP(SPE) 

BIT 10 - WRITE GATE ERROR(WGE) 

BIT 9 - VOLUME CHECK(VC) 

BIT 8 - DRIVE SELECT ERROR(DSE) 

BIT 7 - RESERVED(O) 

BIT 6 - SURFACE 

BIT 5 - COVER OPEN 

BIT 4 - HEADS HOME 

BIT 3 - BRUSHES HOME 

BIT 2-0 -STATE BITS 

- LOAD STATE 

1 - SPIN UP 

2 - BRUSH CYCLE 

3 - LOAD HEADS 
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SEQ 0022 
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SEQ 0023 



4 - SEEK - TRACK COUNTING 

5 - SEEK - LINEAR MODE 

6 - UNLOAD HEADS 

7 - SPIN DOMN 

6,0 TEST SUMMARIES 

THE FOLLOWING IS A BREIF DESCRIPTION OF THE WAY THE PROGRAM EXECUTES. 
THE PROGRAM WILL CHECK COMPATIBILITY BETWEEN 2-4 DRIVES USING THE 
SAME RLOIK CARTRIDGE. THE PROGRAM WILL ASK THE OPERATOR TO SEQUENCE 
THE PACK BETWEEN THE DRIVES GIVEN IN THE FOLLOWING MANNER. 

PLACE PACK IN DRIVE N ON CONTROLLER X AND LOAD 

UNLOAD DRIVE N ON CONTROLLER X 

PLACE PACK IN DRIVE N+1 ON CONTROLLER X AND LOAD 
UNLOAD DRIVE N+l ON CONTROLLER X 
ETC 

THE PROGRAM WILL SEQUENCE IN THE ORDER THAT WAS GIVEN IN THE HARDWARE 
QUESTIONS. I.E. 

DRIVE ? 0,1,2^3 

PROGRAM WILL SEQUENCE 0,1,2,3,2,1,0 
DRIVE ? 1,0,3,2 

PROGRAM WILL SEQUENCE 1,0,3,2,3,0,1 

WHEN THE FIRST DRIVE IS LOADED THE PROGRAM WILL ATTEMPT TO FIND TEN 
SETS OF FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS THAT CONTAIN NO 
BAD SECTORS USING THE BAD SECTOR FILE. THE 10 SPOTS ARE? ON BOTH 
SURFACES, INNER, OUTER, MIDDLE, ONE QUARTER AND THREE QUARTERS. AFTER 
THIS IS DOME THE OVERWRITE TEST IS PREP ARED (F IRST DRIVE CAN'T 
OVERWRITE) AS WELL AS THE ADJACENT TEST. 

AS THE PACK IS CYCLED BETWEEN DRIVES THE FOLLOWING CHECKS ARE MADE: 

EACH DRIVE CAN OVERWRITE EACH OTHER DRIVE 

EACH DRIVE CAN RECOVER EACH OTHERS DATA 

EACH DRIVE CAN WRITE ADJACENT TO EVERY OTHER 
DRIVE WITHOUT DISTURBING THE OTHER'S DATA. 

READS AND WRITES TAKE PLACE AFTER SEEKS FROM 
BOTH DIRECTIONS. 

ADJACENT WRITES TAKE PLACE TO BOTH SIDES OF EACH WRITE 
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.ENABLE AMA 
.ENABLE ABS 
.NLIST ME,CND,MD 



000000 
000000 




SVC 

SVCINS=0 
SVCTAG=0 



POINTER NONE 



MDHEDR 

HEADER CZRLF,B/0/0/0,0,RL01/l 
.ASCII /C/ 
.ASCII /Z/ 
.ASCII /R/ 
.ASCII /L/ 



.ASCII 

.BYTE 

.BYTE 

.BYTE 

.ASCII 

.ASCII 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 



IV 






LSHARD 


L$HW 


LSLAST 





I 

LSDISPATCH 



C< 

c2 



REVISION 
EDIT 







LSDVTYP 


LSDR 

LSDRST 





ASSEMB 
CZRLFB 



LY ROUTINES 
Pll 22-HOV-78 

002102 000000 

ami mtii 

002110 
§02110 

mm 88888? 

mm gjij^^ 



MACYll 

15:47 



030460 
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.WORD 
.WORD 
.WORD 

ENDMOD 
DEVREG 
.WORD 
.BLKU 

DEVTYP 
.ASCIZ 
.EVEN 





LSINIT 

lIclean 



<RL01> 
11/ 



/RLOl 



.sbttl global equates section 
;definitions 



BGNMOD GLBEQAT 
EQUALS 



il 

55 
56 
57 



60 

il 

64 



mm 



JCCNTROL AND STATUS OFFSET 
;BUSADDRESS OFFSET 

;disk address offset 

I«NT OFFSETS FOR INDIVDO.L JK^feFeS^PIgf 

;CONTROLLER ADDRESS 
'XS9J9«„5f CONTROLLER 
JDRIVE SELECT 
;PATTERN UNIQUE TO DRIVE 



IT 



DRDYsB- 
INTENsB 
ERR=BIT 

derr-bi 

NXMsBIT 
DLT=BIT 
DCRC=BI 
HCRC=BI' 
HNFsBIT 

opi=bit; 

CRDYsBI' 
BAl7=Br 
BA16=BI' 

crset=b: 
gstat=b: 

SEEK=BI' 
RDHDRsB 
WRITE=B 
READ=BI 
DRST=BI 
GSBITsB 



2 

7 
5 
4 

l!BIT2 

T3IBIT1 

-3IbIT?!BIT0 
ITIIBITO 



;drive ready 
interrupt enable 
;composite error 
;drive error 

;ngn-existant memory error 

JDATA LATE 
;DATA CRC ERROR 
;HEADER CRC ERROR 
;HEADER NOT FOUND ERROR 
?gPERATION INCOMPLETE ERROR 
;CONTROLLER READY 

BUS ADDRESS BIT 17 
'IXTJP.EP BUS ADDRESS BIT 16 
;CgNTROLLER RESET FUNCTION CODE 
;GET DRIVE.STATUS FUNCTION CODE 
;SEEK FUNCTION CODE 
;READ HEADER FUNCTION CODE 
;WRITE FUNCTION CODE 
;READ FUNCTION CODE 

;DRIVE RESET COMMAND CODE FOR DRIVE COKMAD WORD 
;GET STATUS COMMAND CODE FOP DRIVE COMMAND WORD 
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cmrB«Pll 22-MO¥-»?8 15247 GLOBAL EQUAfES SECTION 



002122 



0000 



SEQ 0028 



MK=|Ifg 
St 6!i' 
SKHS 
HEAD 



ITU 

=BIT2 
=Bltl 
SBIT6 



;markbr bit FI 

;PIRECTJ0N rOL 
-""AD SELECT FO 



InWhO SB 
^OFFSET FOR HARDWARE P-TABLE 



OR DRIVE COMMAND UORD( SEEK#GET STATUS) 
IR SEEK(OxAWAY FROM SPINDLE) 



m m 



D,URITE,GET STATUS 



m 



RaO 
TalO 



»SBm GL 



IaB'^DATA SECTION 



B6NM0D GLBDAT 

lip 



»BYfE 

iIytI 

.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



llsHEADER IN BAD SECTOR LIST 
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GLOBAL DATA SECTION 



SEQ 0029 



m 

YTE 



TQ02 
TQU3 
TQU4 

INN2 
INNl 
INN4. 
I|N50: 

IHHSI: 
.EVEN 

sSECfOR LIST FOR LAST J 
5mAP of 16 SECTOR DRIV! 

seclst: ,blkm 16. 
;buffer table for 24 x 

SECBUF: .BLKIS 5*24. 



.BYT 
.BYT 
.BYT 

:im 

.BYTE 

■m 

:m 

.BYTE 

.BYTE 



RIV|gWRITTEN 



5 MATRIX USED FOR ADJACENT CYLINDER TESTING. 



OVERMRITE TEST 



OVMTRKI 0UT3 



FOWR: 

FADJ! 

TEMPI 

I.STCLRI 

REASONS 

ERFLGS 



ml 

iNNao 

0UT31 

mi 



.WORD 
.HORO 
.WORD 
.WORD 

.MORD 
.»ORD 
.WORD 
.WORD 
.MORD 
.WORD 



111! 



25 

155555 



;LAST CONTROLLER 
;DRIVB ERROR REASON 
;ERROR FLAG 
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CZRLFB.Pll 22-N0V-78 15:47 GLOBAL DATA SECTION 



SEQ 0030 



180 002676 




STFLG: 
ADJLOC: 
ADJFLG: 
ADJDIR: 

drstat: 
hsflg: 

OSECT: 
HEADOl: 
DIRC: 
DESCYL: 

revsk: 

FORSK: 

uut: 
sect: 

LSTDRV: 
GDATA: 

bdata: 

wcount: 

sechrd: 

OFFSET: 

lsttrk: 

frttrk: 

prstrk: 

surface 

trkfnd: 

trkcnt: 

E.cs: 

e.ba: 

e.da: 

e.mp: 

E.MPl: 

E.MP2: 

bcs: 

bba: 

bda: 

BMP: 

SERNMl: 
SERUMS: 

adjtrk: 
adjuut: 

ADJLC2: 
ADJLC3: 
ADJLC4: 
STSECl: 
STSEC: 

bof: 

DRBUF: 



.word 

.MORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKW 



17034 
17036 



00Q002 
000004 
000006 



CSR 
VEC 
DSB 
PAT 



>PROGRAM START UP FLAG 
;TRACK INDEX FOR ADJ. CYL TEST 
;FLAG FOR ADJ. STORE OR RETRIEVE 
;ADJACENT SEEK DIRECTION 



>surface flag 
;direction of seek 
;pack surface 
jreverse seek 
;forwaro seek 

;01IIT UNDER TEST 
;SECfOR 

jlast drive 
;good data 

;BAD DATA 
JWORD COUNT 
; SECTOR WORD 
;INCREMENT 

;LAST TRACK OF SEARCH 

;FIRST TRACK OF SEARCH 

JPRESENT TRACK 

;SORFACE 

?TRACK FOUND 

;TRACK COUNT 

;IMAGE OF CSR 

;IMAGE OF BUS ADDRESS 

? IMAGE OF DISK ADDRESS 

;IMAGE OF MULTI-PURPOSE WORD 



;CQMMAND LOADED 
;BUS ADDRESS LOADED 
;DISK ADDRESS LOADED 
?WORD COUNT LOADED 
;SERIAL NUMBER OF CATRIDGE 

;INSIDE/0UTSIDE FLAG 
>UUT FOR "ADJCYL" 
;TEMP LOC for "ADJCYL"^^ 

i n M It 11 

;SECT0RS TO WRITE "ADJCYL" 
; " " " " 
;BUFFER FOR 24 SECTOR READS 

;DRIVE INFORMATION BUFFERS 



;CONTROLLER ADDRESS 
;VECTOR 

;DRIVE SELECT BITS 
;PATTERN UNIQUE TO DRIVE 
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15:47 GLOBAL DATA SECTION 



CSR 
VEC 
DSB 
PAT 




CSR 
VEC 
DSB 
PAT 



CSR 
VEC 



PAT 

ENDBUF: .WORD 
ENDMOD 



.SBTTL GLOBAL TEXT SECTION 
BGNMOD GLBTXT 



?GLOBAL TEXT 



;CDNTROLLER ADDRESS 
;VECTOR 

;drive select bits 
;pattern unique to drive 

;controller address 

;VECTOR 

>drive select bits 
;pattern unique to drive 



KONTROLLER ADDRESS 
;VECTOR 

;drive select bits 
jpattern unique to drive 



;END of DRIVE BUFFERS 



.ASCIZ /CNTLR TIMED OUT/ 

.ASCIZ /ERROR ON RECOVERING INITIAL WRITE BY FIRST DRIVE / 

.ASCIZ /ERROR ON READ/ 

.ASCIZ /MINIMUM OF TWO DRIVES REQUIRED/ 

.ASCIZ /MAXIMUM OF FOUR DRIVES ALLOWED/ 

.ASCIZ /TEST ABORTED - CAN'T FIND ANY GOOD SPOTS/ 

.ASCIZ /TRYING TO OVERWRITE DRIVE / 

.ASCIZ /TRYING TO READ DATA WRITTEN BY DRIVE / 

.ASCIZ /CAN'T FIND FIVE ADJACENT TRACKS/ 

.ASCIZ /OVERWRITE ERROR/ 

.ASCIZ /READ RECOVERY ERROR/ 

-ASCIZ /ERROR IN SEEK OPERATION/ 

.ASCIZ /MIS SEEK ERROR/ 

.ASCIZ /FORWARD/ 

.ASCIZ /REVERSE/ 

.ASCIZ /ERROR WRITING SECTOR/ 

.ASCIZ /ERROR READING SECTOR/ 

.ASCIZ /ADJACENT CYLINDER TEST/ 
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GLOBAL tEXf SECTION 



SEQ 0032 



III 



0I77S6 

017756 
0177S6 
122 



fill 



054 
0S4 

10062 



il627oi 000012 
104023 



mm 



000005 



'16446 OOQOSQ 

im ml 

Ml 



mil M 



002730 
§6^1 002720 
iilie 002721 



• EVEN 

ENDMOD 



BGHMSa ERRl 

PRIHTB 

11 

MOV 
MOV 
EMT 
ADD 

ENOMSG 

SHT 

ERI 



LIOOOO! 

SGHHSG 



LlOOOll 



ENDMSG 
EMf 



B6NMS6 ERR3 

PRINTB 
CLR 
BISB 
MOV 
HOV 
MOV 
HOV 
EMT 
ADD 
JSR 

PRINTB 

BISB 
CLR 
BISB 



ifi, 



#FR|fRK/LSTfRK*SURFACE 
FRffRK;-(SP) 



12/SP 



C$MSG 

TB #FR|4^CSR(R4),<B,DSB*l<R4)> 

if) 

e^RlGDHP 
C$MSG 



^REGISTER DUMP ROUTINE 



#FRp4/CSR(R4)/<B/DSB'H(R4)> 
Dsi+1(R4)/(SP) 



m 

fcSslGDMP 



3K ru^KCUUPr /REGISTER DUMP ROUTINE 

RINTB #FRM5/<B£DESCYL+1>/<B,DESCYL>/SECT 

ISB d|sCYL,(SP) 

LR -CSP; 

ISB DESCyL»l/(SP) 




ASSEMBLY ROUTINES 
CZRLFB.PU 22-N0V-78 

010600 



MACYll 
15:47 



30A(10S2) 22-NOV-78 15:54 PAGE 1-8 
GLOBAL ERROR REPORT SECTION 




000005 
000000 

mil 



000010 
025144 



000Q05 
000000 
020771 
000003 



021706 
000003 



022516 
040445 
041501 
042510 



L100035 
BGNMSG 



MOV 
EMT 

ADD 

ENDMSG 

EMT 

ERR5 

PRINTS 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

ENDMSG 

EMT 

ERR6 

PRINTB 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 
EMT 



SP/RO 

CSPNTB 

#6,SP 



C$MSG 



#FRM4,CSR(R4),<B,DSB+1(R4)> 

dIb+1(R4)«(S 
CSR(R4)/-tsP 



:sp) 
5p) 



^fo SP 

IcSfticDMP 
C$MSG 

#FRM4,CSR(R4),<B,DSB'H(R4)> 
DSB+1(R4)#(SP) 




#FRM17,R1,E.MP 
E.MP--ISP) 

#FfiMl?,-(SP) 

SP^RO 
CSPNTB 
#10#SP 



;FORMAT STATMENTS 



047 
OS- 
OS 
04 
04 



47125 



FRMl! 
FRM2: 
FRM3: 
FRM4: 
FRM5: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



%06%A AND REMOVE PACK%N/ 

QN.CONTROLLER *C6*A AND LOAD%N/ 



/%N%AUNL0AD drive %01%A on CONTROLLER 

/%N%APLACE PACK IN DRIVE %01%A ON CON 

f%N%AWRONG PACK « IS %Q5%05%A # S/B %05%05%N%NI 
/%AC0NTR0LLER: %a6%A DRIVE: lOllN/ 
/%AHEAD: %01%A CYL: %Z3%A SECTOR: %Z2%N/ 
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022052 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



/%T%01%A ON %06%N/ 

y%ASEEK DIRECTION: %T%N%ADATA: %N/^ . 

Uamord: %Z3%a s/b: %06%a was: %66%ni 

/%D3%A WORDS BAD OUT OF 128 READtN/ ^ 
/%ABETWEEN %Z3%A - %Z3%A HEAD: %01%N/ 

/%n%apwr fail not supportedtn/ 
/%abefore cs: %06%a ba: %u6%a da: %06%a mp: %o6 



3EI _ _ _ 
y%N%AAFTER' CS: %06%* BA 

/%n%a drive status: %q6/ 
/%n%acan't find bad sector file/ 
/%aadjacent written by controller: 
/%aexp'd: %06%a rec'd: %06%n/ 



;06%A da: %06%A MP: %b6%N/ 



%06%A drive: %01%N/ 



/%N%AUNLOAD ALL DRIVES TO BE USED%N/ 
/%N%A END OF PASS%N%N/ 



ENDMOD 
HPTCODE 

.WORD L10006-LSHW/2 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



174400 

160 

240 



1 



BGNMOD DSPCODE 



.WORD 
.WORD 



.SBTTL INITIALIZATION SECTION 
BGNMOD INITCODE 



» 



SSSSNBtV DOatlSSS maU 30A<10SJ) 22~WI-1B IS:34 PAGE 1-10 

CERLrB.Pll 2a-Kav-7e ISHI IHItlJtUAtlOH SECtlOB 



HI mm 

mm mm 



I iii 



i 



023300 

mm 

olllll EJoili 023300 
H|4 gj|737 002012 
ipl $12704 017030 

m 



mm 

881111 

nun 

103010 



milt 



000004 90$8 



002726 91$s 



002726 ENDS 



SRTP81 

MOV 

EMf 

CMP 
B6B 



!il 

El 



cmSena 



ERRSF 
TRAP 
.MORD 
«MORD 
JMP 

HO? 
CLR 
MOV 
MOV 
TST 
BEQ 
GPHARD 
MOV 
EMT 
MOV 
MOV 
TST 
MOV 
MOV 
TST 
IMC 
DEC 

MOV 
MOV 

m 

EMT 

BNCOHPLE 
BCC 

PRIMTF 
MOV 
HOV 
MOV 

EMT 



cmpIna 
^sunit/uut 

«DRBUF£R4 

END 
R1,R0 
R1#R0 
"'IGPHRD 
,J0)*,CSR(R4) 
^R0S+;VEC(R4) 

^R 



mm] 



pIt+2/R4 



UF'r4 



If 
OMR 

EF.PWR^RO 
SREFG 

E SETUP 

SETUP 

SP,RO 
C$PNTF 



^CLEIN CODE mEH < 2 DRIVES 
K FOUR 



;CLEAN CODE HHEM > 4 DRIVES 



NUMBER OF UNITS 
T P-T*BLE 
OP DRIVE BUFFER 



IIP 

;get list of patterns 
;any p-tables left? 

;Ng^GO TO END 
JGET A P-TABLE 



;get CSR 
JGET VECTOR 
;SKIP PAST BR 
;GET DRIVE 



JGET BEGINNING OF BUFFER 

mi hUi^^mi im 
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022264 062706 000004 



nil IM mm 
mm 



i ill ill 



027S62 



000 020 

mm mm 




ADD 



#4/SP 



.HE A'-._ _ ^ 

?aCBO§S_|Hi_PAg| 



jAcr^-- 

>TH1 
loUTER 

imlh--'- 

jdhe quarter - T 

ITHREE QUARTER - 



SEQ 0037 



(EACH SURFACE) 



EMPT TO^LOCATE 5 PERFECT ADJACENT TRACKS AT 5 SPOTS 

s?ofs aS 

TRACK 

K _ 

CK 



ICK 56 - 72 
TRACK 184 - 200 



;IF ME FIND ANY BAD SPOTS/ HE HILL REPORT SO. 



1$S 



2§t 
3$l 



IJNTF 



MOV 
MOV 

MOV 

JSR 

i 

.BYTE 0/16. 



I^NTF 

jliiSuM 

ir 

|I77777/(R1)+ 
IS 

R5/FNDTRK 



INDICATE A START COMMAND 




TST 
BNE 

ERRHRD 
TRAP 

:im 

.WORD 



MQV 
JSR 



|SR 
.BYTE 



IRKFND 



TO FIND FIVE TRACKS 
..RD SEARCH 
SURFACE 

;track range 

;has search successful???? 
;YES 



g.^ERRFND/ERRl >N0 TRACKS 

Irjhd 



3$ 

R5/FNDTRK 
0/16. 



ISTORE KMkH TRACKS FOUND 



HUM IIaPcH^^^ ^'^^^^^ 
llBffgH SURFACE 
JTRACK RANGE 



ASSEMBLY ROUTI 
CZRLFB.Pll 



NES 

22-N0V-78 



MACYll 
15:47 



30A(1052) 22-NOV-78 15:54 PAGE 
INITIALIZATION SECTION 




n 



51- 



022602 
022604 



mm m 



4537 
0001 



000000 
176 



737 
015 



027562 

356 
002756 



mm 



356 
002756 



027562 



210 
002756 



4$: 

5S: 



6S: 
7S: 



8$: 
9$: 



TST 
BNE 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

MOV 
JSR 
JSR 

.BYTE 

TST 
BNB 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 



MOV 
JSR 

JSR 
.BYTE 



ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

HOV 
JSR 

JSR 
1 



.BYTE 



TRKFND 
4$ 



;WAS 
JYES 



SEARCH SUCCESSFUL???? 



10.£ERRFND,ERR1 
TSERCODE 



ERRFND 



TST 
BNE 



R5/FNDTRK 



254. ,238. 

TRKFND 
6$ 

10. /ERRFND, ERRl 
TJERCODE 

ERRFND 
ERRl 

#INN10,R0 
R5,FIXCYL 

R5/FNDTRK 

254. ,238. 

TRKFND 
8$ 

10., ERRFND, ERRl 
TSERCODE 

ERRFND 

ERRl 

9$ 

R5,FNDTRK 

126. ,136. 

TRKFND 
10$ 



;STORE TRACKS AWAY 

JFIND NEXT 5 TRACK 
;OUTWARD SEARCH 
JTOP SURFACE 
;TRACK RANGE 

;WAS SEARCH SUCCESSFUL? 

;yes 



;N0 TRACKS 



>SKIP 

;ST0RE AWAY TRACKS FOUND 

;NEXT SET 
;OUTWARD SEARCH 
;BOTTOM SURFACE 
;TRACK RANGE 

;SEARCH SUCCESSFUL? 
;YES 



;N0 TRACKS 



; STORE AWAY TRACKS FOUND 

JNEXT SET 
;INWARD SEARCH 
;TOP SURFACE 
;TRACK RANGE 

;DID WE FIND A SET 
;YES 



ASSEMBLY ROUTINES 
CZRLFB.Pll 22-N0V-78 



MACYll 
15S47 



30A(1052) 22-MOV-78 15:54 PAGE 
INITIALIZATION SECTION 



mm 

022624 

mm 

022640 

mtn 

022656 
022662 

022670 
022674 

mVo^ 
mt 

022710 
022714 

022716 

iMi 

mm 
mm 
mm 

022746 
022750 

022752 
022756 



mi 

02271 



imi 

000000 
202 

005737 
001005 



mm 

017462 



004537 
000001 
000001 
176 

005737 
001015 

l?l?77 
t0000| 

005737 
001005 



104463 
oio404 

mm 
mm 

000000 
076 

005737 
001015 

im^ 

000000 



170 
002756 



027562 



210 
002756 



170 
002756 



mi 

027562 

110 
002756 



10$: 
11$: 



12$: 
13$: 



JSR 

.BYTE 
TST 



TRAP 
.WORD 
.WORD 
.WORD 



MOV 
JSR 

JSR 

1 

1 

.BYTE 

TST 
BNE 

JSR 

I 

.BYTE 

TST 
BNE 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

MOV 
JSR 

JSR 

1 



.BYTE 

TST 
BNE 

JSR 

-1 





R5,FNDTRK 

130. ,120. 

TRKFND 
10$ 

10.£ERRFND,ERR1 
I^ERCODE 

ERRFND 

#MID10,R0 
R5,FIXCYL 

R5,FNDTRK 

126. ,136. 

TRKFND 
12$ 

R5,FNDTRK 

130. ,120. 

TRKFND 
12$ 

10., ERRFND, ERRl 

t|ercode 

ERRFND 

ERRl 

13$ 

R5,FNDTRK 

62. ,72. 

TRKFND 
14$ 

R5,FNDTRK 



;NEXT SET (OTHER SIDE) 
;OUTWARD SEARCH 
;TOP SURFACE 
;TRACK RANGE 

;did we find a set 
;yes 



;store away 

;next set 
;inward search 
;bottom surface 

;RANGE 

jsuccess? 
;yes 

;look the other side 

;0UTWAR0 
;B0TT0M SURFACE 
;RANGE 

JSUCCESS? 

;yes 



;no tracks 



;ST0RE AWAY THE TRACKS FOUND 



;next set 

;INWARD 
?TOP SURFACE 
;RANGE 

;SUCCESS? 

;yes 



;LOOK OTHER SIDE 

;OUTWARD 

;TOP SURFACE 



022170 102 070 

mm mm 



mm mm mm 

37 027S62 



3©I€lQi2) 22«H0V«78 1SIS4 PAGE 1«14 
MlfIALII4flON SiCTIOM 



11 ^^^i 



mnt 

mm 
mm 



Oflfl] 027562 



Joooo| 



070 
002756 



mm mm mm 



027562 



mm mm 

Q23124 004537 027562 

nm mil , 

023131 302 270 

mm mm 



14$s 
15$s 



16$: 
17S! 



m 

||RHRO 

MOV 
JSR 



TST 

ONE 

JSR 

-I 

1 

.BYTE 

TST 
BHE 

IgRgRD 

.WORD 
.MORO 
.WORD 
BR 

MOV 
JSR 



TST 
BNE 

JSR 

5' 

.BYTE 

TST 
BNE 



llirHD 



INO TRACKS 



RS^FNDTRK 



ISTORE AWAY NEXT SET 



.BYTE 62.^72. 



TRKFND 
16$ 

R5/FNDTRK 

66. ,56. 

TRKFND 
16$ 

10.,ERRFND,ERR1 
fSERCODE 



FOR NEXT SET 
)BOTT§H 

;range 

^SUCCESS? 

;yes 

;LOOK FOR another SET 
;RANGE 

;succESS? 

?YES 



JNO TRACKS 



in 



RFND 



R5,FNDTRK 



.BYTE 190. #200. 



TRKFND 
18$ 

R5/FNDTRK 



194./184« 



TRKFND 
18$ 



;store away tracks 
;next set of tracks 

)INWARD 

ITOP SURFACE 
)RANGE 

;success? 
;yes 

;L00K other SIDE 
;OUTWARD SEARCH 

;TgP 
;rahge 

;succESS 

>YES 



SEQ 0040 



ASSEMBLY RDlIflHSS 

CZRLFB^Pll 22-llO¥«78 15s47 
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INITIALIZATION SECTION 



11 ilolo 



00404 

mm mm 



mm mm 
III 

mm mm 



min mm 

hUUl 

mil mm 

0|||02 013700 

Illi 



mm 

027562 

310 
002756 

027S62 

270 
002756 



lB$t 
19$: 



20$: 

21S: 
22$: 



cmpena: 
24$: 



ERRHRD 

..WORD 
« WORD 
BR 

m 

JSR 

i 

,BYTE 

m 

J|R 

!byte 

m 

ERRHRD 
TRAP 

.WORD 
BR 

DEC 

BHE 

ERRSF 

TRAP 

«WORD 

.WORD 

CLR 

MOV 

DODO 

MOV 

III 

BNE 
DOCLN 



19$ 



RRFND/ERRl ?N0 TRACKS 
ODE 



R5,FHDTRK 
190.^200. 

RS^FNDTRK 

194. /184, 
|R|FHD 



!0,£ERRFND/ERR1 >N0 TRACKS 
SERCODE 
RRFND 
gRRl 
21$ 



;STORE TRACKS AWAY 



-?N§XT„SET 

SURFACE 



jSUgCESS 



ET 

SURFACE 



RO 
0)+ 



3.!nONE 

T$ERCODE 

3 

NJNE 

LSUNIT,R0 
RJ 

R1,R0 
CSDDDU 



24$ 



;STORB SET AWAY 

;DID we FIND ANY AT ALL 



;Da DROP UNIT 



m 
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023320 104044 



CSDCLN 



exit: 

L10007: 



ENDINIT 

EMT C$INIT 

ENDMQD 
CLNCODE 



023324 000240 



BGNCLN 



000240 
104055 



023334 010046 




LlOOll: 



ENDMQD 

DRPCODE 
B6NDU 
NOP 
ENDDU 



EMT CSDU 
ENDMQD 

.SBTTL GLOBAL SUBROUTINES SECTION 
BGNMQO GLBSUB 

;ALL COMMON OR GLOBAL SUBROUTINES GO HERE 

;RQUTINE TO PERFORM OVERWRITE 
;CALL; JSR R5,0VWPER 
; SECTORS TO WRITE FORWARD 

> SECTORS TO WRITE REVERSE 



OVWPER: 



is: 



MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 

MOV 
MOV 
CMPB 
BEQ 



RO/-(SP 
R1/-(SP 
R2/-CSP 
R3/-(SP 



(R5)+/F0RSK 
<R5>+/REVSK 

!0VWTRK,R1 
Rl)/R2 
R2)/#-l 



;SAVE RO, Rl/ R2# R3 



;ro has count if R0<5- 

;USE TOP SURFACE, IF R0>5. 
;USE BOTTOM SURFACE, IF R0>1 
;D0NE. 

;GET start OF LIST OF TRACKS 
;GET POINTER TO TRACK 
ILEGIT TRACK?????? 
?N0# EXIT 
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002720 
000005 

2721 
-_4716 
002720 

--72" 




2$: 



3$: 



CLR 

CMP 

BLT 

INCB 

JSR 

CLRB 

BISB 

JSR 

MOV 

JSR 

.WORD 

MOV 

JSR 

JSR 

CLRB 

BIS 

JSR 

CLRB 
BISB 
JSR 

MOV 

JSR 

.WORD 

MOV 

JSR 

JSR 

TST 
INC 
CMP 
BNE 

MOV 
MOV 
MOV 
MOV 
RTS 



DESCYL 
R0,#5 

DESCYL+1 

R5,SKCYL 

DESCYL 

(R2)#DESCYL 

RSi-SKCYL 

F0RSK,R3 

R5/WRSEC 

28. 

#FWD/DIRC 

R5,VER0W 

R5,VER0D 

DESCYL 

#377#DESCYL 

R5,SKCYL 

DESCYL 

(R2)/DESCYL 

RS^SKCYL 

REVSKeR3 
R5/WRSEC 
28. 

iREVi-DIRC 

R5,VER0W 

R5,VER0D 

R0,#10. 

(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
|SP)+,R0 



;clear cylinder/head for seek 
;top/bottom 

;TOPy BRANCH 
;BOTTaM SURFACE 
;SEEK TO CYLINDER 



;SEEK TO PROPER CYLINDER 
;SECTORS TO WRITE 
;G0 WRITE SECTORS 

JSET FORWARD DIRECTION 
;VERIFY OVERWRITE 
?VERIFY OTHER DRIVES DATA 
;SET UP FOR SEEK TO 
;INNER GUARD BAND 
;D0 THE SEEK 

>set up for seek to 
;desired track 
;do another seek 

;sectors to write 
;write them 

;set direction 
;verify overwrite 

;VERIFY OTHER DRIVES DATA 

mncrement to next track 
;account for it 

;D0NE? 

;no, go back 



>RESTORE REG. 



;exit 



;ROUTINE TO WRITE SECTORS 

;USED IN OVERWRITE TEST? ADJACENT CYLINDER TEST 
?CALL JSR R5/WRSEC 

.WRD ;STARTING SECTOR 

;R3 HAS BITMAP OF SECTORS TO WRITE 
;R4 HAS DRIVE BUFFER POINTER 



WRSEC: 



2S: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 



R0/-(SP) 

R1,-(SP) 

R2,-(SP) 

#BUF,R1 

#128. /R2 

PaT(R4),(R1)+ 

2$ 



;SAVE RO 
;SAVE Rl 
JSAVE R2 

;WRITE PATTERN INTO 
;MEMORY THAT WE 
;WILL WRITE ONTO 
;PACK FOR THIS 
?DRIVE 
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MOV 



BEQ 

CLR 
MOV 
MOV 
MOV 
BtC 
CMP 
BLB 
SUB 
HOV 
MOV 
JSR 

III 

BMr 



||00#DESCYL 
HSFLG 

#-l|8;/BMP 

R2/BDA 
|lo.,BDA 

{buf,bba 



lilfOFT I 



RFLG 
RSFLG 



-RAP 
.WORD 
.WORD 

l¥ 

•m 

.MORD 

III 

BCC 
MOV 
MOV 
MOV 
RTS 



CLR 
CLR 
MOV 
MOV 
MOV 
BHr 
CL 



R2 



mi 



ADJTRK 
HpADOl 
-P4 



-ApJUOT 
UT104fRl 
5)+/ADJL0C 



?MASK FOP BIT MIP 



?N0 



ILOAD »OR0 COUNT 
;LOAD DISK ADDRESS 
;SAVE DISK ADDRESS 



;LQAD BUS ADDRESS 
JRESTDRE DISK ADDRESS 
;6Q WRITE 



I.#URIT1/ERR2 
JRCODE 

ipiTi 

ilL£WRITUERR2 
|||RCODE 

MRITl 
ERR2 



mih'nm bit 

IDONE? 

jBiGiSTlSi^ND EXIT 



JINSIDE/OUTSIDE TRACK FLAG 
;INIf TO TOP SURFACE 
;START OF TRACK LIST 

IpICK up track OFFSET 
;IS THERE ONE? 



0762 

mm 

000137 
005037 

mm 

052737 
004537 
111237 



mm 



mm 

mm 



010102 

mm 

iim 



ASSEMBLY ROUTIHES MACYll 
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S34052 000205 

Ii4y5i oiaiii ? 



024074 
024102 

mm 

m . 

m I 

mm 

024146 
024152 

mm 

024164 
024172 
024176 
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mm 

000050 

000377 

024570 
002720 
0Q2714 

000400 
024716 
002720 

MM 

000377 
000047 



003026 



mm mm 

023S6« 

mm 

mm 

003026 003024 



2SS 



881811 

003026 



4$: 



5$S 



6$S 



RTS 

MOV 

MOV 

MOV 

MQVB 

MOV 

HOV 



po 



Mm 

R1,R2 



STSEC 
STSEC 



ilo. /STSEC 
|R2),#377 
13$ 

DESCYL 

HEADOl 
6S 

#400/DESCyL 

R5/SKCYL 

(R2)#DESCYL 

#377/R3 
||9. /STSEC 

R3/BRSEC 
STSEC/STSECl 



;no exit 

;yes/ get rest of info 



;et offset 

ITI " 



jSTARflMG SECTOR IS 16 
;GET start into R2 

;dqmn count offset 
;found it? 

;INDEX £R2) 

;nO/ next sector 

JBACK FOR next 

;le6AL track? 

JYES/ continue 

;N0 PICK UP NEXT SET 

;SET UP FOR OUTER TRACK 

JWHICH HEAD? 
nop/ SKIP 

;LCHER HEAD/ SET ITI 
;SEEK TO OUTER TRACK 
;GET DESIRED TRACK 



SEEK TO IT 

fiKg fgsi'yg -RITE 

CLEAR OUT HIGH BYTE 



IHRITE SECTORS 
IVERIFY THIS WRITE 

;GET OTHER SECTORS TO WRITE 



ASSEMBLY RQUTI 
CZRLFB.Pll 



881 024316 



m 
m 

907 
908 
909 
910 

m 

913 

III 
til 

fl 

924 

fp 

928 

m 
m 
III 

m 



024334 
024342 
024346 

o: 



NES 

22-N0V-78 

062737 
737 



024540 
024546 
024552 



065603 
162737 
013703 
013737 



24354 



m 

ollllo 

024424 

024430 
024434 
024442 

imn 

024454 

Utiti 

mm 
ml 

Q24532 
024536 



004537 
OOQOOQ 
Q13737 

m 

004537 
111237 
004537 

Si 



000 
04" 
01 



024554 
824562 
024566 



0303 

m 



004537 
000000 

013737 
004537 

"111 

SooEoo 

mm 

QQ4537 
000000 



000000 



MACYll 
15147 



000010 
000047 



000050 

003016 

003024 

023566 

024360 
026534 

024374 
026770 

000377 
024716 

002720 

Q24716 



mm 



mm 

023566 



2) 22-NOV-78 1 
GLOBAL SUBROUT 



003024 
003024 




ADD 
CMP 
BGE 


003024 




SUB 




9$: 


MOV 


024360 




MOV 


024374 
024410 
002720 


10$ I 
110$ : 
210$: 


JSR 

• WORD 

MOV 

JSR 

■ WORD 

MOV 

JSR 

.WORD 

MOVB 

JSR 

MOVB 


002716 




MOV 
MOVB 


024466 




SWAB 

BIC 

MOV 




lis: 


JSR 
.WORD 


024502 
024516 


1 1 1 c • 
211$: 


MOV 
JSR 

MOV 

JSR 

.WORD 

MOV 

MOV 


024536 






12$: 


JSR 
.WORD 


024552 


112$: 


MOV 
JSR 
-WORD 


024566 


212$: 


MOV 
JSR 
.WORD 



5:54 PAGE 1-20 
INES SECTION 



p.^STSECl 
|39.,STSEC1 



#40.,STSEC1 

ADJLC2,R3 

STSECl^lOS 

R5,WRSEC 




10$, 110$ 
R5,VAJHR 



rIJI§v1r^ 

#377,DESCYL 
R5,SKCYL 

(R2),DESCYL 

RSfcSKCYL 

#REV,piRC 

A0JLC3+1,R3 

R3 

ItseC^Jis 

R5/WRSEC 


ADJLC4/R3 
STSECi;i2S 

R5,WRSEC 




12$, 112$ 
R5,VAJWR 





Ri/§§VWR^ 




;8 SECTORS GONE BY 
;G0NE PAST 40? 

;n0/ okay 

>VES BACK IT UP 
>GET SECTORS TO WRITE 
;STARTING SECTORS 
;WR1TE SECTORS 

;VERIFY THIS WRITE 

;VER1FY ADJ CYL + 1 
?SEEK TO INNER TRACK 

;SEEK BACK TO PROPER TRACK 

;SEEK TO PROPER CYLINDER 

;SEEK DIRECTION 

;GET SECTORS TO WRITE 

;ALIGN IT 

yCLEAR OUT HIGH BYTE 
JWRITE PROPER SECTOR 



JVERIFY THIS WRITE 



;GET SECTORS 

;GET SECTORS TO WRITE 



;WRITE PROPER SECTORS 



;VERIFY THIS WRITE 



;VERIFY ADJ CYLINDERS ♦ 1 
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1-65 

It? 

968 
969 

PI 

973 

m 

976 
977 

m 

980 
981 

m 

986 
987 

III 
1? 

992 



024724 

mm 

024734 
024736 
024742 
024744 

mtt 

024760 
-1476" 



, -762 
-24764 

992 024776 032737 Oi 



000010 

005737 
001074 

005001 

him 
him 

005401 
000402 

052""" 
052 
032 



002664 

002664 

003012 

003012 
024034 
003012 
003014 

003014 002726 
024034 

002704 



030560 
002674 

002720 



000004 
000001 

000400 002720 



13$: 

m 

;AT 
18$: 

15$: 

16$: 

17$: 



TST 

BNE 

INC 

BR 

CLR 

ADD 

CMP 

BGE 

JMP 



HEADOl 

MIdoi 

995 

HEADOl 



;WHICH HEAD WERE WE DOING? 



;next set of tracks 
;next set of tracks 
jend of list 

;KND OF track LIST 
;N0 GO BACK 



END OF TRACK LIST NEXT GROUP OF WRITES 



TST 

BEQ 

CLR 

BR 

TST 

BNE 

INC 

JMP 

CLR 

INC 

CMP 

BEQ 

JMP 

TST 

BNE 

CLR 

RTS 



15$ 

FAOJ 

17S 

ADJTRK 
16$ 

ADJTRK 
21s 

ADJTRK 
ADJUUT 

a|juut,uut 

AOJDIR 

R5 



FIRST SET? 
NO, CONTINUE 
YES, CLEAR FIRST 
EXIT 

DONE BOTH INSIDE OUTSIDE 

TRACKS, YES 16$ 

NO/ SET INSIDE FLAG 

GO DO INSIDE TRACK 

BACK TO OUTSIDE TRACK 

DONE WITH ANOTHER 

DONE TABLE FOR ALL UUT? 

YES/ FOR EXIT 

NO, GO BACK FOR NEXT 

BUMP EXIT TO END OF 

TABLE FOR PROPER RETURN 

EXIT 



^ROUTINE TO SEEK TO A DESIRED 
;CALL: JSR R5,SKCYL 
?ROUTINE HAS DESIRED CYLINDER 



§KCYL: 

90$: 



MOV 
JSR 
RDHDR 

TST 

BNE 

CLR 

BISB 

SWAB 

ROR 

BIC 

SUB 

BPL 

NEG 

BR 

BIS 

BIS 

BIT 



Rl^LiluJc 



ERFLG 
5$ 

Rl 

DESCYL/Rl 
Rl 



. .,E.MP 
MP,R1 



|t7.7 



IGNjRl 
DESCYL 



fSlGN, 
fMK,Rl 
#406, D 



CYLINDER 

IN LOC "DESCYL" 



;SAVE Rl 

?GET PRESENT POSITION 



;ERR0R FLAG SET 
JYES, SKIP 



;GET DESIRED CYLINDER 
>GET IN HIGH BYTE 
?ALIGN IT 

jclear present hd:sec 
kalculate difference word 
;if positive set direction 
;negate 

jskip setting direction 

;SET FOR FORWARD SEEK 
;SET MARKER BIT 
JWHICH HEAD 



aSSEMBLf RQUflliES MACVll 30aC10S2) 22-IIOV«-18 15sS4 PAGE 1-22 
CEtLFB^Pll 22-M0^-78 15s4t ~« — 



s^isi^ mm 



625?02 
025106 

025110 



62011. 
001414 



0446 



002674 

030560 
002674 
000077 
002720 

000400 

mm 



024720 



024720 



GLOBAL SUBROUflNES SECTIOM 
3$ I 



SEQ 0048 



4SS 



5SS 



6$s 



fSt 
BMB 

JSR 
RDHDR 

m 

BIC 

CLR 

OISB 

StfAB 

RQR 

BIT 

ifi 

CMP 

BEQ 

ERRDF 

TRAP 

.HORD 

.HORD 

«SORD 

JMP 

mr 
•m 
■Ar 

MOV 

RTS 



RS^LDn 



Rl 
fUNC 



PFSR|NCE WORD 



|RFLG 

#?7^E.N 



if" 

RS^LDFUNC 
gFLG 

.MP 

OlSCYL/Rl 

|400^DESCYL 

PEAD/Rl 
Rl^B.MP 
6S 

12-£SKER/ERR6 
fSEfiCODE 

l4 
SKER 
ERR6 
90$ 

|3«|^F0NERR#ERR5 IFUNCTIQN ERROR IN SEEK 

luNERR 
ERRS 



J ERROR? 
;VES/ SKIP 

^VERIFY POSITION? 

;VERIFY POSITION 

?IS CORRECT AND IF 
>NOT CORRECT THEN 
JRESEEK 



>SEEK ERROR 



?)*/Rl 



JCANT GET THERE 

;exit 



IROUTIME TO PERFORM REGISTER PRIHTOOT DUMP 



m 



5150 

.^5154 

no 



mm 

013746 

mm 



004 
002 
000 



ill 



0300< 

ill 



mm mm 



CALL. 
EGDMP 



JSR 
PRINTB 
MOV 
MOY 
MOV 
MOV 
MOV 
MOV 
MOV 
EHT 
^PO 

PRIHTB 

MOV 

MOV 



PC^REGDMP 
|FRM12ggCS,BBA,BDA,BMP 

BDA^-CSP) 
BBA/-(SpS 
BCS,-(SP5 
«FRM12,-(SP) 

SP*RO 
CSPMTB 

iFRfifs/E.CS/E-BA^E-DA/E.MP 



ASSEMBLf ROUflMES 



CZRLFB*P11 



22-<H0y~78 15:47 
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GLOBAL SUBROUTINES SECTION 



Ell 



000006 



000034 



mm mm 



MOV 
MOV 

MOV 
EMt 



E-BA,-(SP) 
E-CS^-(SP2 



CSPNT 



000006 002706 



2$S 



1$: 



|lff4/E-CS 



MO 

MO. 
MOV 
MOV 

W 



mm"M miuw'°' hu\.s sector 

)ORIVE GOTTEN FROM R4 



SETLSfS MOV 



MOV 
1ST 

DEC 
TST 

MOV 
RTS 



2$S 



R1#-(SP) 

|28.,rR0 

#40,,R0 
iSECLST/Rl 



if" 



SECTOR LIST 



5CALL l! 

icALL 21 

RSADJSS MOV 
MOV 



= Al 

JSft R5/R 
,WORD u 
JSi |5/R|ADJS 



"SEC 
"ST 
ND 

EQi 

ADJS 



WM 

R5/R 



ISAVE Rl 
;START LIST AT 

IDECREHENT SECTOR 
iNEXT^pTRY IN LIST 

||||||^|r|VE BITS IN LIST 

DJACENT CYLINDER SECTOR DRIVE 
LST" BUFFER. 



;RETRIEVE SECTOR INFO, 
JSTORE SECTOR INFO. 
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000047 
000050 



1$: 



MOV 

MOV 

MOV 

MOV 

CMPB 

BEQ 

INC 

ADD 

ADD 

CMP 

BLT 

SUB 

BR 

MOV 

CMP 

BEQ 

TST 

INC 

CMP 

BLE 

SUB 

DEC 

BNE 

CLR 

BR 

TST 

BEQ 

MOV 

MOV 

MOV 



(R5)+,ADJFLG 



48. /R2 



iJsloRE FLAG 
RACK <N-2) 



;SAVE SECTOR ^ 
?SAVE HETRIEVF:, 
JSTART WITH TRJl.. _ 
;START OF 24X5 BUFFER 
;SECTOR 16 START FOR (N-2) TRACK 
KHECK TRACK INDEX 

?INDEX TRACK REFERENCE 

JUPDATE BUFFER TO NEXT TRACK REF. 

JUPDATE SECTOR START FOR NEXT TRACK 



jset counter for 24 sectors 
;compare sector to sector table 
;yes,store or retrieve sector info. 
;indIx seclst buffer in word format 

; INDEX sector count 

JCOMPARB SECTOR COUNT FOR <40 

;KEEP SECTOR COUNT<40 
;PASSED_2_4_SECTgRS?_ 



SECTOR 
EXIT 
"ECT" 



KCMPARE NEXT 
; SETUP RO FOR _„^- 
;EXIT ROUTINE, SECTOR NOT FOUND 
;FLAG=0 FOR RETRIEVE 

;STORE DRIVE INFO. INTO BUFFER 
>SAVE DRIVE INFO. INTO RO FOR EXIT 
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L06 

n 



025554 
025556 
025560 



025562 
025564 



il5 025564 
f mm 
18 025576 



5576 
56Q- 

111 



123 02561 
126 02562 



012601 
005205 



010146 

im 

012701 



000050 
002206 



000034 
100000 
000006 




MOV 
MOV 
RTS 



(SP)+,R2 
<SP)+,R1 



JEXIT 



JROUTIHB TO LOCATE DRIVE THAT WROTE SECTOR LAST 
JCALL: JSR R5,FNDDRV ;R0-CONTAINS SECTOR 

>0N EXIT PO-DRIVE 



2$: 



MOV 

SUB 

BPL 

ADO 

MOV 

TST 

BEQ 

DEC 

TST 

BR 

MOV 

MOV 

RTS 



R1«-(SP) 
|28.,R0 

#lo./RO 

iSECLST,Rl 

RO 



R1),R0 
SP)+/R1 



JSAVE Rl 

;START LIST AT 



h, EXIT 
SECTOR 



;START OF LIST 
;FDUND SECTOR? 
;YES, GET DRIVE 
;NC, DOWN COUNT ani-i 
JNEXT ENTRY IN LIST 
;G0 BACK 

;GET DRIVE BUFFER POINTER 

>RESTORR Rl 

;EXIT 



ROUTINE TO VERIFY THAT THE OVERWRITE DID 
PREVIOUS DATA ON THE PACK. 



ACTUALLY OVERWRITE THE 



002734 

003002 
003002 



002672 
002670 
002732 



CALL: JSR 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R5/VER0W 



RO, 
R' 



0,-(S 



017361 002672 21$: 



MOV 
MOV 
BIC 
BIS 
BIT 
BEQ 
JSR 
READ 

TST 
BPL 

TST 

BEQ 

MOV 

MOV 

MOV 

BR 

MOV 



SP) 
SP) 
SP) 

„ioo8oo,Ri 

PAT(R4),GDATA 
#-128. /BMP 

|buf,bba 

177, BDA 

SECT/BDA 

R1,R3 

i?i/LDFUNC 



E.CS 

4S 

FOWR 

iiSlTWP, REASON 
CSR(R4),LSTCLR 



USES R3 AS BIT MAP OF SECTORS TO 
CHECK. R3 IS LOADED PRIOR TO 
WRITING SECTORS. 

?SAVE REGISTER CONTENTS 



;STAPT VERIFY AT SECTOR 28 
;BIT MASK FOR VERIFICATION 
;GET PATTERN FOR THIS DRIVE 

;SET UP READ-ONE SECTOR 

;BUS ADDRESS 

;CLEAR OUT SECTOR BITS 

;SET SECTOR 

;D0 we READ THIS ONE? 

;N0, BRANCH 

;read 



; ERROR 

>N0 CONTINUE 

;INITIAL WRITE 
?N0 

;SETUP INITIAL WRITE 



DSB+1(R4),LSTDRV 
22S 

#OVMES, REASON JSET MESSAGE FOR OVERWRITE 



!7 



22$t 



3111 




GLOBAL SUBROOfiNEB SECflOM 



|S|D 

i 



M9 
MDV 



INTF 



PRIHTF 

MOV 

MP? 

MDV 

MOV 

EMT 

ADD 

MOV 
JSR 



CLC 

m 
us? 



Iff 



ll|N| DRIVE fHAT LASf ^ROfK 
if ll^S CSR 



mbIiicwrd^gdi 



W/IM SECTOR 



?IS DATA CORRECT? 



I) 



R IT 



Mr 



Hcg 



CSf NTF 

#6/SP 

SECT4.RO 
R5,SETLST 

SECT 

SECT, #40. 
llo.^rSECT 



?PRINT SUMMARY 



;SET SECTOR IN LIST TO THE 
;CREDIT OF THIS DRIVE 

;NEXT SECTOR 



Ml 



(SP3+/R0 

RS 



AR CARRY 
^ BIT 
LEAR NEXT 

^RESTORE R2-R0# EXIT 



sNpT BIT 
llf CL"-* 



ROUTINE TO VERIFY THAT A DRIVE CAN RECOVER ANOTHER DRIVE'S DATA. 
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ii 



n mi 



mm mm 



26376 

w 





026 



30 
026434 



mil 

iit 

430 



104462 

mm 

020206 



601417 
005237 

ill! 

m 

104017 
062706 

005722 



600006 
030560 

002762 
017414 



mi 



2334 

?742 



002730 



m 



;CALLl JSR 



2$i 



3$: 



4$s 



MOV 
MOV 



m 

MOV 
MQVB 
MOV 

J§R 
READ 

TST 

BPL 

MOV 

ERRDF 

TRAP 

«MORD 

.MORD 

.WORD 

CLR 
CLR 
MOV 
CMP 

BEQ 

INC 

PRINTF 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

TST 



RS^VIRDD 



SE R3 COMPLIMENTED. 
0-R2 

^islSiT^iffS^iECTOR 28 
FOR FIRST OVERWRITE 



;SAVE R0-R2 



JBIT MASK 
;CHECK 



-128. ^BMP 
|OPgBBA 



;SET UP READ (ONE SECTOR) 
;BUS ADDRESS 

?N0 BRANCH 



;GET PATTERN 



;ason 

VERP4 



CSR(R 

Dsr 

PA' 

rs^lofunc 

E.CS 

5$ 

#RECMS£RI 
l4.*RECEi 
T|ERCODE 

RECER 
ERR4 

WCQUNT 
SECWRO 
#BUF^R2 
GDATA,{R2) 
4$ 

WCOUNT JACCOUNT FOR ERROR 

#FRM8,SECWRD/GDATA/(R2) ;PRINT ERROR 

(R2)*-(SP) 

GDATA,-(SP) 

SECWRD/-(SP) 



;read 



? ERROR? 

;no, next sector 

?SET read recovery MESSAGE 

;report error 



KLEAR BAD WORD COUNT 
JCLEAR WORD W/I SECTOR 
>START OF BUFFER 
;DATA COMPARE 
;YES/ CHECK NEXT 



|4/-(S 

CS^NTF 

#12^SP 

(R2) + 



;NEXT 
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005237 002742 IMC SECWRD ;NEXT WORD IN SECTOR 

gg|7|7 002742 000200 CMP ||CtfRD/#12B. l^^^^"^ 
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000050 




002666 
030560 



5$: 
7$: 
6S: 



002720 



PRINTF 

MOV 
MOV 
EMT 
ADD 

INC 
CMP 
BNE 
CLR 
CLC 
ROR 
BCC 

MOV 
MOV 
MOV 
RTS 



#FRM9£WC0UNT 

CSPNTF 
#6,SP 

SECT 

SECT,.#40. 
7S 

SECT 

Rl 
IS 



?PRTNT SUMMARY 



;NEXT SECTOR 



JNEXT BIT MAP 



;RESTORE R2-R0, EXIT 



JROUTINI 
>USES R 



TO VERIFY THE ADJ. CYL. WRITE IS GOOD 
AND WORD FOLLOWING CALL 



;IF MRITE WAS GOOD#SECTOR WILL BE STORED IN MAP 
;USING RSADJS/.WORD 1 



003002 
002666 
003000 6$: 



10$: 



MOV 

MOV 

MOV 

MOV 

MOV 

CLRB 

BISB 

SWAB 

ROR 

BIT 

BEQ 

BIS 

BIS 

BIT 

BEQ 

MOV 

MOV 

MOV 

BIC 

CMP 

BLE 

SUB 

SUB 

MOV 

CLR 

MOV 

JSR 

READ 



R0/-(SP) 

DESCYL/RO 

|400,DESCYL 

#HEAD,R0 
R2,R0 



;SAVE REGISTERS 



;BIT MASK FOR CYLINDER 
JSTARTING SECTOR 



-BMP 



5$ 

RO/BDA 
RO#TEHP 
#177700, 
|0/#39. 

#40.,eDA 
#40./TRMP 

TEMP,RO 
R5/LDFUNC 



;READ FUNCTION 



ROOTIMES 
11 22«N 



NACVll 30IC10S2) 2a*N0V«78 lSlS4 PAGE 3- 
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Ml 




002674 
001710 



27004 1. 



m 



002710 



002720 
002700 
000042 

88^8 



SEQ 0QS6 




;STORE ADJ. CYL. 
^RESTORE RO 



SECTOR INFO. 



THAT WRITE DID 
RIVES. 



NOT DISTURB ADJACENT TRACKS 



>USES "ADJLOC" TO GET +1/-1 
?USES R3 FOR SECTOR MAP/ USI 



;STARTING SECTOR 

CYLINDER OFFSET 
BS MAP AT "SECBUF" FOR INFO 



000001 l$l 



MOV 

MOV 

MOV 

MOV 

MOV 

CMPB 

BBQ 

m 



JSR 

PCB 

INCB 

m 



DE|C|L/-|SP) 

ADJL06/#3 

BSEXIT 

|34.,{SP) 



__SCYL 
(SP) 



;SAVE REGISTERS 



;SAVE PRESENT POSITION 
?GET STARTING SECTOR 
""^DLl 



?0N MIDDLE TRACK??? 
;YES/ THEN NO CHECK 

SSETUP SECTOR START FOB OUTSIDE 
?|F^POSltfVE OKAY ELSE FIX 

{oPoJIeR LIMIT??? 

>GQ CHECK ADJ SECTORS 
)FIX BACK 
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BLT 
SUB 



SEQ 0057 




000005 1$: 



002720 



CMP 
BLT 
SUB 
CMPB 
BEQ 

im 

JSR 
DECB 

W 

MOV 
MOV 
MOV 

MQX 

JSR 
RTS 




;YES/ OKAY 
}FIX SECTOR 



J INNER LIMIT?? 
;YES/SKIP CHECK 
?FIX FOR INNER 

?G0 CHECK ADJ SECTORS 
JFIX BACK 

JTHRO'4 OFF SECTOR 
;GET OLD CYLINDER 



;SEEK BACK 
;RETURN 



CHECKS 



3|: 



6$t 



mm 



002730 



ROR 

BIT 

BBQ 

BIS 

BIS 

BIT 

BEQ 

MOV 

BIC 

CMP 

BLT 

SUB 

SUB 

JSR 

.HQRD 

TST 

READ 

TST 

BEQ 

MOV 
MOV 



isCYL/R2 
400/DESCYL 



>HEAD SET??? 
?N0 



|0 CYLINDE 



>SET IN SECTOR 
>THIS SECTOR IN LIST??? 



5| >N0£ NEXT 

R2iR0 ;COPY SECTOR 

#177700, RO JONLY SECTOR LEFT 

,#40. ;SECTDR OKAY??? 

;YES 



,, .-.,R0 

140. ;r2 

R5/RBADJS 

h 



iFIX SECTOR 

;FIND if SECTOR PREVIOUSLY WRITTEN 
;WAS IT?? 



#-128., BMP 
R5,LDFUNC 

ERFLG 

R3,-(SP) 
R2,SECT 



;no 



)LO-AD BP^ ''''''' 

;lqad 

;HAS READ GOOD 
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SEQ 0058 



177700 002730 




MOV 
BIC 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

INC 
CLC 
ROR 
BCC 
RTS 



SECT 

TXT,ERR3 



R0/R3 

tJ77700^ 
SE§60DE 

ADJTXT 
ERR3 

(SP)+,R3 
110., READ!, ERR2 

READ 



U. /K 

gRCQDE 
91 



;NEXT SECTOR 
JSHIFT MASK 



;ROUTINE TO MERGE BAD SECTOR FILES 

;ENTRY INTO THIS ROUTINE WILL OCCUR AFTER THE "SERNUM" ROUTINE 
;IS PERFORMED. THE FACTORY BAD SECTOR FILE WILL BE LOCATED IN 
?FIRST 400(8) LOCATIONS. 

;THIS ROUTINE WILL STORE THE FIELD BAD SECTORS INTO THE NEXT 
J400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE 
;WITH THE FIELD BAD FILE. 

;FACTORY BAD AT BUF 
;FIELD BAD AT BUF ♦ 512. 



97$: 



999$: 
98$: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

READ 

TST 

BEQ 

ADD 

CMP 

BNE 

PRINTF 

MOV 

MOV 

MOV 

EMT 

ADD 

BREAK 

EMT 

BR 

MOV 



R3,-<SP) 
#BUF+40O,BPfl 
S77724/BDA 
#-256., BMP 
R5/LDFUNC 



ERFLG 
98S 

|77750,BDA 

fF^MlS 
FRMi5-t-(SP) 
P/RO 
CSPNTF 
#4/SP 

C|BRK 

IbuI+IO/RI 



;SAVE Rl, R2, R3 



jbuffee start for field bad 
?da of field bad sec. start 
?setup to read two sectors 
?load read function 

;test error flag 
;yes;merge bad sector files 
jtry next field bad sector file 
jccmpleted field bad sectors? 
;no/do next field bad sector 



;GET PAST ID ETC. 
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1$! 



5$: 



MOV 

TST 

BMI 

TST 

DSC 

BNE 

BR 

TST 

MOV 

MOV 

MOV 

BMI 

MOV 

DEC 

BNE 

MOV 

MOV 

MOV 

RTS 




1744 



PUF+410/R2 
|R2)i-/(Rl) + 

2)+/(Rl)+ 



(R5)4-, OFFSET 
(RSW, SURFACE 



MAX = 126 

SECTOR OP. END 

END, GO GET FIELD 

REST OF SECTOR 

MAX REACHED 

NO, KEEP GOING 

YES, SKIP BACK UP 

BACK UP PAST TERMINATOR 

SET 126 MAX 

GET FIELD SECTORS 

MERGE AT END OF FACTORY 

DOME? 

NO, MERGE REST OF SECTOR 
DONE 

NO, GO BACK 
RESTORE R3, R2, Rl 



;exit 



;GET increment/decrement 
?GET head (SURFACE) 



ISSEHe 



L¥ ROOTIHSS MICYll 
Pll a2-liO¥»78 1SS47 



301C10S2) 22-M0V~78 lSlS4 PAGE 4 
GLOBAL SUBROUflHES SECTION 




mm 

0006 162701 000004 
± 000005 



1$S 



MQVB 
MpVB 
CCR 



ooooos 

002746 
0O27S2 



n 

m ii 



4SI 



RSTRK 

R5,FIIDBSC 
HDRFND 

tRKCNT 

Irkcnt 

|RKCNT,#5 

tIkfnd 

llsfRK^LStTRK 
pFFSET^PRStRK 



;IS TRACK IN BAD SECTOR FILE 

5111 ^Ue 

kSStIno 

sifARf C 



SAR TRKCNT 
fCATE GOOD TRACK 

CONTINUE 

* EXIT WITH GOOD FLAG 



W 



TRACK 



iROUfIHE TO FIND BAD TRACK IN 



fNDBSCl 



4$: 
3$: 

2$s 



M 

MOV 
TST 
BHI 
CMP 
BNE 
TSTB 
CMPB 

niB 

BR 
INC 



TST 
IHC 

MOV 
MOV 
RTS 

MOV 

1ST 

BHI 

SUB 

MOV 

MOVB 

INC 

DEC 



||UF*10^R1 

p|sTRK,(Rl)* 
?|4) + 

SURFACE^ (Rl) 
4$ 

-|R4) 

Sdrfko 



FILE 

JS 

?|ND? 

;IF MINUS AT END, 

)UPPER HALF OF WORD 
JCORRECT SURFACT 



ISETUP FOR BEGINNING OF FILE 

_ T END£ EXIT 

JCVLINDER CORRECT? 



;SET FOUND 

;next word 
;account for it 

;dqhe? 

;nq# keep checking 
^restore r2# r1/ exit 



?GET TRACK WHICH IS GOOD 
;UHICH WAV WERE WE LOOKING 
;IN WORD/ BRANCH 
;BACK IT UP BY FOUR 
JGOING STORE AWAY 5 TRACKS 
;STORE THEM 
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mm mm 



Hi 



0I5746 



mm 

030560 

mil 



030160 

mm 



002674 

mm 
mm 

mil 

000002 

mm 
mi 

000005 



003002 



003001 



mm 

003010 
003010 



>ROUTIHE TO GET 

?CALL JSR 
SERNUMI ^1 

111 



98$: 



4$t 



SERIAL NUMBER 
R5/SERNUM 

ilJcEPuNc 

R5/LDFUNC 



!lfl?oo 



R§#LDFUNC 

WfeS^Ro 

777O0£BDA 



ERFL6 

Rn^SERNMl 
II R1),SERNM2 



;get status 
?read header 



nN*f SEEK 




IF SEEK 



LAST 

;k 

ART 



IVERIFY POSITION 

IgAD s1ct6r uh sifkKi 
iREAD IN BAD SECTOR FILE 

;rbad 

;TEST ERROR FLAG 
^YESfCOMPARE SERIAL NUMBERS 
>NO#s|tUP for NEXf FACTORY BAD SECTOR 

;report error 

u?.s, branch 
;nO/ call ~ 



compare 
this one it 




JRROR 

?D|RER HALF OKAY 
)Jsiif5M2iSsiRNMl 
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CZRLFB.Pll 22-NOV-78 15!47 GLOBAL SUBROUTINES SECTION 

MOV SP,RO 
EMT CSPNTF 




JsS Is/OnEoAD JLET OPERATOR CHANGE 

JSR RS/LOAD ?PACK 

BR SERNUH ;G0 CHECK IT AGAIN. 

PRINTF «FRM15 ?MESSAGE 

MOV SfRM|5£-(SP) 

MOV ll/-tsP) 

MOV §f«Rfi 

EMT CSPNTF 

ADD #4/SP 
BREAK 

EMT CSBRK 



BR 999$ 
5$: RTS R5 
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mat 



001367 
-"741 



020520 
000003 



QOOO^O 




;routine unload 

;CALL JSR 



unload: PRINTF 
MOV 



000000 2$: 



3$: 



;routine load 

;CALL JSR 



load: 



000000 2$: 



PRINTF 

MOV 

CLR 

BISB 

MOV 

MOV 

MOV 

EMT 

ADO 

MOV 

MOV 

BIS 

MOV 

BIT 

BNE 

WAITMS 
MOV 

EMT 
DEC 
BNE 
BR 



R5/UNL0AD 

#FRM1/<B/DSB+1(R4)>,CSR{R4) 
^SRp.5),-(SP) 



(SP) 

SB+1(R4),( 
FRMl£-(SP) 




SP) 



;SETUP 60 SECOND TIMEK 



?CHECK ORDV FOR ZERO 
;PACK UNLOADED 
?ViAIT 1 SECOND 



;HAS 60 SEC PASSED? 
;N0£ RETEST DRDY# CONTINUE WAIT 
;YES/ REPEAT MESSAGE CONTINUE Uk 
;RETURN WITH PACK UNLOADED 



R5,L0AD 

#FRM2/<B,DSB*1(R4)>^CSR(R4) 
CSRJR4)r-(SP) 

SPirRO 

CSPNTF 
0,SP 

SB(R4),R0 



R0#2CSR(R4) 
|DR0Y,@CSR(R4) 



JSETUP 120 SEC TIMER 
;SETUP CONTROLLER READY BIT 
;SELECT DRIVE 



10.,R0 

'HTM 



2$ 

LOAD 
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1056 



mm 
mm 



03Q36Q 

mm 



mi 

017 
360 
017 

mm 



|COMTBD! 



SECTION COMPATABILITY PROGRAM 
l_0NtQAD.AND..|OP_DRIVE„MESSAGES 



sPEftl'ORM SERIAL CHECK ROUTINE 
IpERFORM READ/WRITE CHECKS ON DRIVES 



COMPATS MOV 
MOV 

4$S CLR 

1^*00 

IMC 
JSR 
»BVTE 
»«0R0 
.BYTE 
.WORD 
-WORD 
JSR 
ADD 
JSR 
JSR 
JSR 
'§0 



pECBUf^rRl 

4 

RS^OVSPER 



FOMR 
FADJ 
ADJDIR 

170000 



INC 
JSR 

.BYTE 
.MORD 
,BYfE 
.iORD 
"BYTE 

.BYTE 
.WORD 
.MORD 

BNE 



R5<UNLQAD 

#PAT+2£R4 

R5,L0AD 

P5,SEPNUM 

RS^OVWPER 

ADJOIR 

R5|rADJCYL 

^/360 

4^360 



;ADJ. CYLINDER BUFFER 
-"•""•-R CLEARED? 



,,CEAR AdJ. CYL. BUFFES It STARTUP 

;buffer cleared? 
;clear next buffer word 

;SIT FIRST QVIRHRITE FLAG 
;piRFORM OVERHRITE ON FIRST DRIVE 



JCLEAR FIRST OVERWRITE 
;SET FIRST ADJ. FLAG 
;up = 1 

>TRACK AND SECTORS FOP 

;INWARD SEEK 

JTRACK AND SECTORS FOR 

;OUTWARD SEEK 

^TERMINATOR 

;UNLOAD PACK FROM DRIVE UNIT 
;UPDATE POINTEP FOR NEXT DRIVE 
;LOAD INTO SECOND DRIVE UNIT 
?CHECK PACK SERIAL NUMBER 
;PERFaRM R/W OVERWRITE 



;IN 1/0 OUTSIDE 
>OUT 1/0 OUTSIDE 
;IN 1/0 INSIDE 

lOUt 1/0 INSIDE 



II 



.UAD PACK FROl 
:CK FOR > ?. " 
(#G0 TO NEXT 



DRIVE 



VE UNIT 



y ROUTINES 
Pll 



22-NOV-78 
000137 

mm 

6014 
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iii 

|72 

f 

m 

424 



0011 
0052 
00453/ 
002 
170000 

007400 
004 

170000 
004 

007400 



000 



0000 

0, 
OOOQO 



ll 



031654 
QOOOig 
030460 
030036 
023334 



002704 

000 
000 
000 
200 
100 
200 
100 



023727 
001500 

m 

SSioi? 

'"nil 

000360 
002 
000017 
004 

000360 

;1 "'ill 



030360 
002726 

000010 
023334 



002704 
024016 



1434 
436 
440 

m 

446 
450 
452 
454 

.456 



000000 
001 
000000 
005 
000000 
005 
OOOQOO 



lOSi 



000 
000 
000 
040 
020 
040 
020 
000 
000 



JMP 
ADD 
JSR 
JSR 
JSR 



6014 
1403 
INC 
JSR 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.WORD 
JSR 
CMP 
BEQ 
ADD 
JSR 
JSR 
JSR 
21040 
10420 
INC 
JSR 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
• BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 



mat'' 

R5/SERNUM 
R5/0VWPER 



R5*ADJCYL 
2#0 

170000 
2/0 
7400 
4*0 

170000 

7^00 
},200 

1/100 


5/200 

5,100 





R5/UNL0AD 
UUT/#3 

#PAT4-2/R4 
R5,L0AD 
R5,SERNUM 
R5/0VWPER 

ADJDIR 

R5«ADJCYL 

2,0 

350 

2/0 

17 

4,0 

350 

,40 

1/20 


5/40 

5/20 


IcO 

poooo 



JGO TO FIRST DRIVE 

;UP0ATE DRIVE BUFFER FOR THIRD DRIVE 
;LOAD PACK FOR THIRD DRIVE 
;CHECK SERIAL NUMBERS 

;PERFQRM R/W OVERWRITE ON THIRD DRIVE 



;IN 2/0 OUTSIDE 
;OUT 2/0 OUTSIDE 
;IN 2/0 INSIDE 
;OUT 2/0 INSIDE 
;IN 2/1 OUTSIDE 
;OUT 2/1 OUTSIDE 
;IN 2/1 INSIDE 
>OUT 2/1 INSIDE 
* TEPMI N ATOR 

;UNLOAD PACK ON THIRD DRIVE 

JCHECK FOR > 3 DRIVES 

;N0/ go TO 2ND DRIVE 

JUPDATE DRIVE BUFFER FOR 4TH DRIVE 

JLOAD PACK ON 4TH DRIVE 

?CHECK PACK ON FOURTH DRIVE 

?PERFORM R/W OVERWRITE 



JIN 3/0 OUTSIDE 
;OUT 3/0 OUTSIDE 
jIN 3/0 INSIDE 
;OUT 3/0 INSIDE 
?IN 3/1 OUTSIDE 
?OUT 3/1 OUTSIDE 
;IN 3/1 INSIDE 
?OUT 3/1 INSIDE 
;IN 3/2 OUTSIDE 
;OUT 3/2 OUTSIDE 
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787 



m 03 

319 03 



004537 



500020 
000000 



04537 



000 
000 



030360 
000010 
030460 
030030 
023334 



000 
000 
000 



030360 
OOQOIQ 
030460 

mi 



024016 
000 

000 

000 

000 

000 

000 

000 

000 



030360 
000010 

mm 

023334 



2$: 



700 004537 024016 



.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.WORD 

JSR 

SUB 

JSR 

JSR 

JSR 

20000 

10000 

JSR 

.BYTE 

.WORD 

.BYTE 

.WORD 

I WORD 

.BYTE 

.WORD 

.WORD 

JSR 

SUB 

JSR 

JSR 

JSR 

4040 

2020 

JSR 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.WORD 

JSR 

SUB 

JSR 

JSR 

JSR 

hp 

JSR 



40000 



R5, UNLOAD 

#PAT+2/R4 

R5/L0AD 

R5/SERNUM 

R5/0VWPER 

R5,ADJCYL 

200 
IfcO 
100 
5,0 

i 8 

100 

R5, UNLOAD 

ftPAT-»-2,R4 

R5/L0AD 

R5/SERNUH 

R5/0VWPER 



RSgADJCYL 

28000 

18800 

5,0 

20000 

5,0 

18000 

li" 

5,0 

28 



R5/UNL0AD 

R5,SERNUM 
R5/0VWPER 



R5/ADJCYL 



;IN 3/2 INSIDE 

;0ut 3/2 inside 
;terkinator 

junload pack from 4th drive 
;set drive buffer for 3rd drive 
;l0ad pack on 3rd drive 
;check for pack serial number 
;perform r/w overwrite on 3rd drive 



;IN 2/3 OUTSIDE 
;OUT 2/3 OUTSIDE 
;IN 2/3 INSIDE 
JOUT 2/3 INSIDE 
;TERMINATOR 

;UNLOAD PACK FROM 3PD DRIVE 

JSET DRIVE BUFFER FOR 2ND DRIVE 

;L0AD PACK ON THIRD DRIVE 

;CHECK PACK SERIAL NUMBER 

?PERFORM R/W OVERWRITE ON 2ND DRIVE 



;IN 1/2 OUTSIDE 
;OUT 1/2 OUTSIDE 
JIN 1/2 INSIDE 
;OUT 1/2 INSIDE 
;IN 1/3 OUTSIDE 
;OUT 1/3 OUTSIDE 
;IN 1/3 INSIDE 
;OUT 1/3 INSIDE 
^TERMINATOR 

;UNLOAD PACK FROM 2ND DRIVE 
;SET DRIVE BUFFER FOR 1ST DRIVE 
>LOAD PACK INTO FIRST DRIVE UNIT 
;CHECK SERIAL NUMBER 
;PERFORM R/W OVERWRITE 



ASSEMBLY ROUflMES 
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im 0040] 
1732 00201 



000{ 
OOOj 
000( 
OOOj 
004( 
0021 
004! 
002 
OOOJ 
000( 
000{ 



010 
004 
010 
004 
000 
000 
000 
000 
000 
000 
000 
000 

030360 

mm 



mm 




mi 
m 

>2706 000004 



3S: 



PI 

ml 

BYTE 
MORO 

m 
m 

BYTE 
WORD 
BYTE 

mi 

WORD 
BYTE 
WORD 

PRINTF 

MOV 

MOV 

MOV 

EMT 

ADD 

BREAK 

EMT 

BR 



1/4 

iao 

IftO 
4000 

yo 
If 

4'° 

t 



#ENDPAS,-(SP) 

CSPNTF 
#4,SP 

CSBRK 
3$ 



ENDTST 
L10012I 



EMT 

HRDPRM 



BGNHRD 

.WORD L10013-L$HARD/2 



;IN 0/1 OUTSIDE 
JOUT 0/1 OUTSIDE 
;IN 0/1 INSIDE 
;OUT 0/1 INSIDE 
?IN 0/2 OUTSIDE 
;OUT 0/2 OUTSIDE 
;IN 0/2 INSIDE 
;OUT 0/2 INSIDE 
JIN 0/3 OUTSIDE 
;OUT 0/3 OUTSIDE 
;IN 0/3 INSIDE 
;OUT 0/3 INSIDE 



ITERMINATOR 
;UNLOAD PACK 
;END or PASS 



GPRML 
.HQRD 
.WORD 
«UORO 
GPRMA 
.WORD 
.WORD 
.WORD 
.WORD 



RLMSGrRLCNT/l/YES 

TSCODE 
RLMSG 

CSRMSG,CSR/0, 160000/ 177776, YES 
TSCODE 
CSRMSG 



TSLOLIM 

tIhilim 



iSSBNBLY ROUTINES 
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1883 
1884 




GLOBAL SUBROUTINES SECTION 

V|gM||/VECT*0/0/776#YES 



GPRM 
.wr 



!i 

i| 

:i 

'wSrd 

ENDHRD 
.EVEN 



lim mill -^^i 
IIMI 



||PRIOR#O#340#0#7#YBS 

DUN 

|||iRBT^O^03400/0#7,YE 



^bIjI^{ddress/ 



042514 BRMSG: .ASCIZ /BR LEVEL/ 
051117 VECMSG: .ASCIZ /VECTOR/ 



ASSEMBLY ROUTINES HACYll 
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SEQ 0070 



mm 

032144 



10 

or 

0321 



04 



044522 042526 



DRHSG: 
.EVEN 



.ASCIZ /DRIVE/ 



032244 



032244 
032244 



.=32244 

;AREA RESERVED 

JTHIS DIAGNOSTIC DOES NOT RUN 

LASTAO 

.E 

LSLASf:: 



AS PATCH AREA FOR DIAGNOSTICS. 
IN APT MODE. 
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SEQ 0071 



mt 
m 



111 

063 



ill m 

146 QOOQ 



mm 



.SBTTL 
.WORD 

.UORO 
END. SUP 
.END 20 



DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 

;SPACE FOR USER POOL POINTER 

?SIZE 

^CHECKSUM (NCT CURRENTLY USED) 

;SIZE OF H.H. PTAB. ALLOCATION 

[ = .♦2 
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m 



ADJLC: 



Ml 



TXT 

OUT 



f.ER 



ASAAY 

Ir 

DATA 
GN.SU 



In 



CH.PAS 
CLKBFR 



COMPAT 
SRPCL 
CRDY 
CRLF 
CRSET 
CS 
CSR 



0005 



RR.t 

m 

hr i 

SBRK = 
SBSEGs 

imt 

SCL|A= 
SCLPla 
SCVEC= 
SOCLNs 

SDU s 



SKMOF= 
SXWONs 



!PBU= 000007 
rIfg= 000050 
REQT= 000045 
RESE= 000033 



,.PR_ 
SUNBU 
fwTM 
fWTU 



OPMUL 
ORBT s 
DRBUF 
DRDY = 
ORHSG 
DRPCOD 
DRST = 
ORSTAT 
□ SB s 
DSPCOD 



EF.NEWs 
EF.PVIRa 
EF.RESs 



000006 
000007 
000010 



ERR.NU 
ERR.SF 



m.c 

FIXCYL 
FLAGS 



5216 
7070 
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SPEC.U 
SPV-SE 
STARTC 
STFLG 
STRCHR 
STRT.T 
STSEC 



SEQ 0074 




0030 
4 

IS^oll 

mit 

000020 




002170 
0021(54 
002171 
002165 
002172 



TOU50 
TQU51 
TRKCNT 
TRKFND 
TST. AO 
TST.TD 
TYPEC 
TYPEPC 
TYPFLA 
TYPLIN 
TYPNUM 
TYPSTR 
TYP.ER 
TY.UNI 
TSARGC= 
-|C0DE= 
SERCOs: 
SERRNs 
§EXCP= 
SHILI= 
SLOLI= 
SLSYM= 
SNESTs 
iNSKO= 
fNSKl= 
SSAVL= 
SSEGLs 

t|subn= 

T|TAGL= 
"STAGN= 
|TEMP= 

|test= 

5TSTM= 

|tsts= 

SCLE= 
SOU = 
SHAR = 
SHW = 
SINI = 

|msg= 

STES = 



TS 
TS 
TS 
T5 

t| 

TS 
TS 
TS 
TS 
TS 
TS 
TS 
Tl 
UNIT.D 
UNI. MA 



002166 
002173 
002760 
002756 
041460 
033662 
052066 
045762 
055404 
051764 
051346 
052004 
045612 

oooSSi 

003032 
000062 
000322 



000000 
010000 

um 

000004 

im 

OOOOQO 
177777 
010014 
QOOOOO 
000001 
177777 
000001 
010010 

mm 

010006 
010007 
010005 
010012 
031056 
032262 
037140 



UNLOAD 

USEH.P 

USER.T 

UUT 

VAJWR 

VALID. 

VAL.LA 

VAL.SW 

VEC = 

VECMSG 

VECT = 

VERQD 

VRROW 

WCOUNT 

WIDTH 

WRITE = 

WRITl 

WRSEC 

XEQDIA 

XEQSUB 

XEQ.CL 

XEQ.CM 

XEQ.IN 

XEQ.LA 

XEQ.OP 

XEQ.PR 

XEQ.TE 

XTIME 

XTIMEN 

XTIMST 

XXDP.D 

XSALWA:: 

XSFALS= 

XSOFFSs 

X|TRUE= 

SBREG 

SENDAD 

SSAV2 

SSAV3 

$SAV4 

$SAV5 



030360 

umt 

002726 
026534 
032764 
033604 
037250 
000002 
032126 
000002 

000Q12 
017655 
023566 
061554 
061542 
041264 
036574 
040746 
035036 
041040 
034240 



061252 
060450 
036614 
000000 
000040 
000400 
000020 
037310 
061526 
062572 
062606 
062624 
062644 
063050 



. ABS. 063050 



ERRORS DETECTED: 



,DSKZ:CZRLrB=CZRLFB/ML^CZRLFB.Pll, CZRLFB.SUP 
I 25 .9 SECONDS 
f io: 9? ' " 



RUN-TIME RAfip: 99/L 

CORE USED: iSK (29 PAGES) 



